Графикалық мәліметтермен жұмыс істеу. Image компоненті. Сонымен қатар, Delphi-де батырмаға сурет орналастыру үшін SpeedButton

жүктеу/скачать 139,04 Kb.

Дата	05.04.2022
өлшемі	139,04 Kb.
	#137954

Байланысты:
cож3 прог2

2. SpeedButton, Button, Label, Edit компоненттерін пайдаланып келесі арифметикалық өрнектердің мәнін шығарыңыз

Графикалық мәліметтермен жұмыс істеу. Image компоненті.
Сонымен қатар, Delphi-де батырмаға сурет орналастыру үшін SpeedButton компоненті қолданылады. SpeedButton - батырмаға сурет қоюға мүмкіндік беретін компонент. Батырма бетіне сурет орналастыру үшін Glyph қасиеті қолданылады. Мұнда .bmp форматтағы сурет шақырылады. Flat қасиетіне True мәнін тағайындасақ, батырмада шекара болмайды, тышқанның көрсеткішін SpeedButton батырмасының үстіне әкелсек шекара пайда болады. Егер False мәні қабылданса, онда шекара барлық уақытта көрініп тұрады. Hint қасиетіне командалық батырмаға курсор келгенде, тышқан көрсеткішінің жанына шығатын нұсқау беретін мәтінді (подсказка) жазамыз. Нұсқау мәтіні көріну үшін ShowHint қасиетіне True мәнін тағайындаймыз.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Visible:= False;
image2.Visible:= True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Visible:= True;
image2.Visible:= False;end;end.
2. SpeedButton, Button, Label, Edit компоненттерін пайдаланып келесі арифметикалық өрнектердің мәнін шығарыңыз

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,t:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
t:= (arctan(a-c)*b+28)/(4*b/a+1);
label4.caption:='Jauabi'+#13+'t='+floattostr(t);end;end.

жүктеу/скачать 139,04 Kb.

Достарыңызбен бөлісу: