Кнопка свернуть

[Object Kiri]

Надо что-то с системой творить.. Как сделать честно говорю- не знаю...
Спроси у заядлых программистов,должны знать...

Ну надо полагать что язык один - паскаль в делфи - обьектный паскаль так что у меня и делфи и паскаль как одно целое...
Вынужден покинуть столь интересный мне диалог

[_-Re@l-_]

Согласен, для меня сложно лишь запомнить все компоненты Delphi(тем более что на Delphi перешёл всего 3 недели назад, хотя узнал, как я уже сказал, полгода назад)

А как узнать, нажата ли HotKey? Теперь cчитай, что Form1.Enabled:=True

[Stilet]

А как узнать, нажата ли HotKey?

Перехватить соответствующее сообщение:

unit Unit1;

interface

uses        crtfox,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    HotKey1: THotKey;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure wh(var m:TWMHotKey); message WM_HOTKEY;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure HotKey1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 //RegisterHotKey(Handle,0,MOD_CONTROL,VK_TAB);
end;

procedure TForm1.wh(var m: TWMHotKey);
begin
 MessageBox(GetForegroundWindow,'','',0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,0);
end;

procedure TForm1.HotKey1Change(Sender: TObject);
var chars:integer;modif,md:integer;
begin
chars:=HotKey1.HotKey and dword(-1);
modif:=HotKey1.HotKey shr 8;
caption:='';   md:=0;
if (modif and 32)>1 then begin caption:='Shift';md:=md or MOD_SHIFT;end;
if (modif and 64)>1 then begin caption:=caption+' Ctrl';md:=md or MOD_CONTROL;end;
if (modif and 128)>1 then begin caption:=caption+' alt';md:=md or MOD_CONTROL;end;
 caption:=caption+' '+chr(chars);
 UnregisterHotKey(Handle,0);

 chars:=chars and $FF;

  Caption:=inttostr(chars)+' '+IntToStr(VkKeyScan(chr(chars)));
 if not RegisterHotKey(Handle,0,md,chars) then RaiseLastWin32Error;

end;

end.