Разработка приложений в системе Delphi. Шейкер Т.Д. - 56 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

5. Что задаёт свойство TabOrder?
6. Как сделать компонент невидимым (недоступным)?
7. Способен ли получить фокус ввода компонент Memo (ListBox, ComboBox,
DrawGrid, StaticTerxt, UpDown, Timer)?
8. Проанализируйте приведённый ниже код. Выясните, что и как делает
программа. Подумайте, как можно избавиться от замеченных недостатков.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
ols, Forms, Dialogs, StdCtrls, ExtCtrls; Contr
type
TForm1 = class(TForm)
Label1: TLabel;
Image1: TImage;
Memo1: TMemo;
procedure Image1MouseDown(Sender:TObject; Button:TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
var
Form1: TForm1;
implementation
{$R *.dfm
procedure TForm1.Image1MouseDown(Sender: TObject; Button:
}
TMouseButton; Shift: TShiftState; X, Y: Integer);
Var Lx,Ly:integer;
begin
Lx:=Image1.Width div 2; Ly:=Image1.Height div 2;
if (x<Lx) and (y<Ly) then
begin Label1.Caption:='Меланхолик';
Memo1.Lines.LoadFromFile('f2.txt')end;
if (x>Lx) and (y<Ly) then
begin Label1.Caption:='Холерик';
Memo1.Lines.LoadFromFile('f1.txt')end;
if (x<Lx) and (y>Ly) then
Begin Label1.Caption:='Флегматик';
Memo1.Lines.LoadFromFile('f3.txt')end;
if (x>Lx) and (y>Ly) then
Begin Label1.Caption:='Сангвиник';
Memo1.Lines.LoadFromFile('f4.txt')end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('Pic.bmp');
Label1.Caption:='';
Memo1.Clear;
end;
end.
56
5. Что задаёт свойство TabOrder?
6. Как сделать компонент невидимым (недоступным)?
7. Способен ли получить фокус ввода компонент Memo (ListBox, ComboBox,
  DrawGrid, StaticTerxt, UpDown, Timer)?
8. Проанализируйте приведённый ниже код. Выясните, что и как делает
  программа. Подумайте, как можно избавиться от замеченных недостатков.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Memo1: TMemo;
    procedure Image1MouseDown(Sender:TObject; Button:TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseDown(Sender: TObject; Button:
   TMouseButton; Shift: TShiftState; X, Y: Integer);
 Var Lx,Ly:integer;
 begin
  Lx:=Image1.Width div 2; Ly:=Image1.Height div 2;
  if (xLx) and (yLy) then
    Begin Label1.Caption:='Флегматик';
          Memo1.Lines.LoadFromFile('f3.txt')end;
  if (x>Lx) and (y>Ly) then
    Begin Label1.Caption:='Сангвиник';
          Memo1.Lines.LoadFromFile('f4.txt')end;
end;
procedure TForm1.FormCreate(Sender: TObject);
 begin
  Image1.Picture.LoadFromFile('Pic.bmp');
  Label1.Caption:='';
  Memo1.Clear;
 end;
end.

                                   56

Страницы