Пішін ќасиеттері



бет16/29
Дата06.01.2022
өлшемі0,65 Mb.
#11847
түріПрограмма
1   ...   12   13   14   15   16   17   18   19   ...   29
Байланысты:
konspekt Delphi

Компонент әдістері:

 procedure Сlears;

Барлық тексті өшіру

procedure ClearSelection;

Айрықшаланған тексті өшіру.

procedure CopyToClipboard;

Айрықшаланған тексті буферге көшіру.

procedure CutToClipboard;

Айрықшаланған тексті буферге қиып алу

procedure PasteFromClipboard;

Буферден шығару

procedure SelectAll;

Бүкіл тексті айрықшаландыру

procedure Undo;

Фокус алғанға дейінгі текстегі өзгерістен бас тарту.

Практикалық жұмыс


Теорияда көрсетілген қасиеттер мен әдістерді қолданып төмендегідей программа құр.
procedure TForm1.Button1Click(Sender: TObject);

begin


edit1.Visible:=false;

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Visible:=true;



end;
procedure TForm1.Button3Click(Sender: TObject);

begin


edit1.enabled:=false;

end;



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;





Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   ...   29




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет