41 lines
636 B
ObjectPascal
41 lines
636 B
ObjectPascal
|
unit UnSwShortcuts;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
Classes,
|
||
|
|
Controls,
|
||
|
|
Forms,
|
||
|
|
StdCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmUnSwShortcuts = class(TForm)
|
||
|
|
btnOk: TButton;
|
||
|
|
lblHeader: TLabel;
|
||
|
|
private
|
||
|
|
procedure InternalExecute();
|
||
|
|
public
|
||
|
|
class procedure Execute();
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
{ TfrmUnSwShortcuts }
|
||
|
|
class procedure TfrmUnSwShortcuts.Execute();
|
||
|
|
begin
|
||
|
|
with Self.Create(nil) do
|
||
|
|
try
|
||
|
|
InternalExecute();
|
||
|
|
finally
|
||
|
|
Free();
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmUnSwShortcuts.InternalExecute();
|
||
|
|
begin
|
||
|
|
ShowModal();
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|