.


:




:

































 

 

 

 


Combobox( )

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

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);

var fileattr:integer;

begin

fileattr:=filegetattr('C:\Documents and Settings\bista\ \19,04,09.doc');

if fileattr and fareadonly=0 then

filesetattr('C:\Documents and Settings\bista\ \19,04,09.doc',fileattr+fareadonly);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

filesetreadonly('C:\Documents and Settings\bista\ \19,04,09.doc',

false);

end;

 

end.

,

procedure TForm1.Button2Click(Sender: TObject);

var a:array [0..2]of TPoint;

begin

a[0].X:=random(10)+100;

a[0].Y:=random(10)+100;

a[1].X:=random(30)+150;

a[1].Y:=random(30)+100;

a[2].X:=random(25)+200;

a[2].Y:=(25)+200;

form1.Canvas.Brush.Color:=clgreen;

form1.Canvas.Polygon(a);

end;

3.

procedure TForm1.Button6Click(Sender: TObject);

var pt4:array [1..4] of Tpoint;

begin

pt4[1]:=point(10,10);

pt4[2]:=point(200,260);

pt4[3]:=point(360,200);

pt4[4]:=point(280,130);

form1.Canvas.Brush.Color:=clblue;

form1.Canvas.Polygon(pt4);

end;

(2 )

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

case listBox1.ItemIndex of

0: Label3.Caption:= ' ';

1: Label3.Caption:=' FFFFFF';

2: Label3.Caption:=' FFOOOO';

3: Label3.Caption:=' OOFFOO';

4: Label3.Caption:= ' OOFFFF';

5: Label3.Caption:=' OOOOFF';

6: Label3.Caption:=' FFOOFF';

7: Label3.Caption:= ' FFFFOO';

8: Label3.Caption:= ' 996633';

9: Label3.Caption:= ' FF8000';

10: Label3.Caption:= ' 8000FF';

11: Label3.Caption:=' ';

end;

end;

end.

Combobox( )

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; i, max, min, maxi,mini:integer;

a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var k:integer;

begin

max:=a[1]; maxi:=1; min:=a[1]; mini:=1;

for k:=2 to 10 do

begin

if max<a[k] then

begin

max:=a[k];

maxi:=i;

end;

if min>a[k] then

begin

min:=a[k];

mini:=i;

end;

end;

a[maxi]:=min;

a[mini]:=max;

for k:=1 to 10 do

combobox2.Items.Add(inttostr(a[k]));

combobox2.DroppedDown:=true;

end;

 

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

 

5. -

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; i, max, min, maxi,mini:integer;

a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var s,k:integer;

begin

for k:=1 to 10 do

combobox2.Items.Add(inttostr(a[k]));

combobox2.DroppedDown:=true;

end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

 

6.

7.

8.

unit ekz;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

Button1: TButton;

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,x,y,d:real;

begin

a:=Strtofloat(Edit1.Text);

b:=Strtofloat(Edit2.Text);

c:=Strtofloat(Edit3.Text);

D:= sqr(b)-4*a*c;

if (D>0) then

begin

x:= (-b+sqrt(D))/(2*a);

y:= (-b-sqrt(D))/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y))

end

else if(D<0) then

Memo1.Lines.Add(' ')

else

x:= (-b)/(2*a);

y:= (-b)/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y));

end;

end.



<== | ==>
20 . .. -. .. | 1.
:


: 2016-07-29; !; : 272 |


:

:

.
==> ...

780 - | 742 -


© 2015-2024 lektsii.org - -

: 0.036 .