mam problem z skrótem. napisalem cos takiego :
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure wmHOTKEY(var Msg:TMessage);message WM_HOTKEY;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL, VK_F4);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Form1.Handle, $0001);
end;
procedure TForm1.wmHOTKEY(var Msg:TMessage);
begin
if Msg.WParam = $0001 then Form1.Caption:='Na skróty...';
Application.Restore;
end;
end.
i jak nic powinno zmienic nazwe Form1 na 'na skroty po nacisnięciu strl+f4. skrot wpisany do systemu przez program a i tak nie chodzi... wiecie czemu ??'