Ќазаќстан республикасы бiлiм жјне єылым министрлiгi


Компонент Объектілер инспекторы терезесіне енгізілетін өзгертулер



бет25/28
Дата07.06.2023
өлшемі0,69 Mb.
#99414
түріДиплом
1   ...   20   21   22   23   24   25   26   27   28
Байланысты:
Дипломды ж мыс Та ырыбы Delphi программалау ортасында график

Компонент

Объектілер инспекторы терезесіне енгізілетін өзгертулер

ComboBox1:
тсomboBox



Caption: бос қалдырамыз
Items: stRectangle
stSquare
stRoundSquare
stRoundRect
stEllipse
stCircle
Font: шрифтің түсін және өлшемін өзгертеміз

ComboBox1 компонентіне екі рет басып, ашылған ComboBox1 Change оқиға өңдеуші процедурасына төмендегі мәліметтерді енгіземіз:


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
shape1.Shape:=TShapeType(ComboBox1.ItemIndex);
end;

  1. Dialogs бетіне ColorDialog1 компонентін форма бетіне орналастырамыз.

  2. Фигураның түсін таңдау үшін Button1 компонентін орналастырып, тақырып жолына «Фигураның түсі» мәтінін жазамыз және Button1Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
shape1.Brush.Color:=ColorDialog1.Color;
end;
Форманың түсін таңдау үшін Button2 компонентін орналастырып, тақырып жолына «Форманың түсі» мәтінін жазамыз және Button2Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:
procedure TForm1.Button2Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
Фигураның жиегінің түсін таңдау үшін Button1 компонентін орналастырып, тақырып жолына «Фигураның жиегінің түсі» мәтінін жазамыз және Button3Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:
procedure TForm1.Button3Click(Sender: TObject);
begin
if ColorDialog1.Execute then
shape1.Pen.Color:= ColorDialog1.Color;
end;

  1. Форманы жабу үшін BitBtn1 компонентін орналастырып, Кind қасиетіне bcClose мәнін қабылдаймыз.

Программаны сақтап орындаймыз. Программаның орындалу нәтижесі келесі суреттерде көрсетілген.




Достарыңызбен бөлісу:
1   ...   20   21   22   23   24   25   26   27   28




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

    Басты бет