управління фокусу
Лістинг 1. Процедура обробки події OnClick на кнопці Button1 (Обчислити)
//натискання кнопки Обчислити
procedure TForm1. ButtonlClick (Sender: TObject);
var : integer;// дистанція, метрів : real;// час як дробове число : integer;// час, хвилини
sek: integer;// час, секунди
v: real;// швидкість
begin
// отримати вихідні дані з полів введення
dist:=StrToint (Edit1. Text); t:=StrToFloat (Edit2. Text);
// попередні перетворення :=Trunc (t);// кол-во хвилин - це ціла частина числа t :=Trunc (t * 100) mod 100;
// кол-во секунд - це дрібна частина
//числа t
//обчислення :=(dist/1000)/((min * 60 + sek)/3 600);
// висновок результату . Caption:= Дистанція: + Edit1. Text
+ м + # 13 + Час: + IntToStr (min)
+ хв + IntToStr (sek) + сек + # 13 +
Швидкість: + FloatToStrF (v, ffFixed, 4,2) + км/год raquo ;;
end;
Лістинг 2. Процедура обробки події Onclick на кнопці Button2 (Завершити)
// натискання кнопки Завершити
procedure TForm1. Button2Click (Sender: TObject);
begin . Close;// закрити головне вікно програми
end;
Глава 3. Опис структури програми
Скріншоти
program kubik;
uses, in Main. pas , in About. pas {Form2}, in Rules. pas {Form3}, in Resul. pas {Form4}, in OpenF. pas {Form1};
{$ R *. RES}. Initialize ;. CreateForm (TMainF, MainF) ;. CreateForm (TForm2, Form2) ;. CreateForm (TForm3, Form3) ;. CreateForm (TForm4, Form4) ;. CreateForm (TForm1, Form1) ;. run;.
unit About;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,;=class (TForm): TMemo;
{Private declarations}
{Public declarations} ;: TForm2;
{$ R *. DFM}.
{$ A +, B-, C +, D +, E-, F-, G +, H +, I +, J +, K-, L +, M-, N +, O +, P +, Q-, R-, S-, T-, U-, V +, W-, X +, Y-, Z1}
{$ MINSTACKSIZE $ 00004000}
{$ MAXSTACKSIZE $ 00100000}
{$ IMAGEBASE $ 00400000}
{$ APPTYPE GUI}
unit Main;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, Buttons, ToolWin, Menus, Grids, About, Rules, Resul, ExtCtrls, OpenF;=class (TForm): TDrawGrid ;: TMainMenu ;: TStatusBar ;: TToolBar ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TToolButton ;: TSpeedButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem;:TMenuItem ;: TMenuItem ;: TMenuItem ;: TSpeedButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TTimer; Exit1Click (Sender: TObject); SpeedButton10Click (Sender: TObject); About1Click (Sender: TObject); SpeedButton9Click ( Sender: TObject); Rules1Click (Sender: TObject); DrawGrid1DrawCell (Sender: TObject; Col, Row: Integer ;: TRect; State: TGridDrawState); DrawGrid1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); SpeedButton5Click (Sender: TObject); Easy1Click (Sender: TObject); Normal1Click (Sender: TObject); Hard1Click (Sender: TObject); DrawGrid1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer) ; SpeedButton4Click (Sender: TObject); Restart1Click (Sender: TObject); SpeedButton7Click (Sender: TObject); Redo1Click (Sender: TObject); SpeedButton6Click (Sender: TObject); Undo1Click (Sender: TObject); FormCreate (Sender: TObject); SpeedButton11Click (Sender: TObject); Results1Click (Sender...
