Материал: Автоматизация управления персоналом в АО "Киномакс" г. Краснодар

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
159
Shift: TShiftState;
public
X, Y: Integer);
begin
AboutForm.DefocusControl(Memo2,True);
Memo2.SelLength:=0;
end;
procedure TAboutForm.FormShow(Sender: TObject);
begin
AboutForm.DefocusControl(Memo2,True);
Memo2.SelLength:=0;
Memo2.Clear;
end;
procedure
текущий
TAboutForm.Memo1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled:
procedure
Boolean);
begin
Handled:=True;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/2254