-
Notifications
You must be signed in to change notification settings - Fork 10
/
UnitAbout.pas
83 lines (67 loc) · 2.15 KB
/
UnitAbout.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
unit UnitAbout;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ShellApi, Vcl.Menus;
type
TFormAbout = class(TForm)
PopupMenu1: TPopupMenu;
More1: TMenuItem;
LblProgrammer: TLabel;
LblWebSite: TLabel;
LblCopyright: TLabel;
procedure More1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure LblWebSiteMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LblWebSiteMouseLeave(Sender: TObject);
procedure LblProgrammerMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LblProgrammerMouseLeave(Sender: TObject);
procedure LblWebSiteClick(Sender: TObject);
procedure LblProgrammerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *.dfm}
procedure TFormAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
FormAbout := Nil;
end;
procedure TFormAbout.LblProgrammerClick(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'https://www.delphi.uz', Nil, Nil, SW_SHOWMAXIMIZED);
end;
procedure TFormAbout.LblProgrammerMouseLeave(Sender: TObject);
begin
LblProgrammer.Font.Color := clBlack;
end;
procedure TFormAbout.LblProgrammerMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
LblProgrammer.Font.Color := clRed;
end;
procedure TFormAbout.LblWebSiteClick(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'https://www.delphi.uz', Nil, Nil, SW_SHOWMAXIMIZED);
end;
procedure TFormAbout.LblWebSiteMouseLeave(Sender: TObject);
begin
LblWebSite.Font.Color := clBlack;
end;
procedure TFormAbout.LblWebSiteMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
LblWebSite.Font.Color := clRed;
end;
procedure TFormAbout.More1Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'https://www.delphi.uz', Nil, Nil, SW_SHOWMAXIMIZED);
end;
end.