сурет.
Шешуі: procedure TForm1.BitBtn1Click(Sender: TObject); begin
Edit1.Text:=TimeToStr(Time); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin
Edit2.Text:=DateToStr(Date); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin
Edit3.CutToClipboard; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin
Edit3.CopyToClipboard; end; procedure TForm1.BitBtn5Click(Sender: TObject); begin
Edit3.PasteFromClipboard; end;
Shape компонентін шартты түрде графиктік ақпаратты шығару құрылғысына жатқызуға болады. Ол əр түрлі геометриялық фигураларды салу үшін қолданылады.
Бұл компоненттің негізгі қасиеті- Shape. Ол төмендегі мəндерді қабылдайды:
StCircle- шеңбер
StEllipse- эллипс
StRectangle-тіктөртбұрыш
StRoundRectangle- бұрыштары дөңгеленген тіктөртбұрыш
StSquare- квадрат
StRoundSquare - бұрыштары дөңгеленген квадрат
Мысалы: Shape1.Shape:=StEllipse; Shape2.Shape:=StRectangle;
Екінші қасиеті-Pen (қалам). Ол сызық жəне геометриялық фигура шекарасын сызу үшін қолданылатын қалам атрибутын анықтайды. Оның қасиеттері:
Достарыңызбен бөлісу: | 
