Hi Alaitoc,
da meckert der Compiler "unbekannte messagelist"
Aber wo hast du mir Code geschickt?
Es müsste doch aber eigentlich so sein dass getmessages bei jeder message durchlaufen wird oder?
Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
Memo3: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private-Deklarationen }
procedure GetMessages(var msg: TMsg; var handled: boolean); message SET_LNG_CMD;
s:pointer;
public
{ Public-Deklarationen }
end;
Grüsse
Rainer
PS: ich bin jetzt völlig daneben. Weiss garnichts mehr.