Компонент әдістері:
procedure Сlears;
|
Барлық тексті өшіру
|
procedure ClearSelection;
|
Айрықшаланған тексті өшіру.
|
procedure CopyToClipboard;
|
Айрықшаланған тексті буферге көшіру.
|
procedure CutToClipboard;
|
Айрықшаланған тексті буферге қиып алу
|
procedure PasteFromClipboard;
|
Буферден шығару
|
procedure SelectAll;
|
Бүкіл тексті айрықшаландыру
|
procedure Undo;
|
Фокус алғанға дейінгі текстегі өзгерістен бас тарту.
|
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.enabled:=true;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.CharCase:= ecUpperCase;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.CharCase:= ecNormal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.PasswordChar:='*';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.PasswordChar:=#0;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Fd1.Execute;
edit1.Font:=Fd1.Font;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Undo;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Clear;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
edit2.Text:=edit1.SelText;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:=edit1.Text;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
edit1.CopyToClipboard;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
edit2.PasteFromClipboard;
end;