OnMessage()

[Eclipticon]

Hi,

ich versuch gerade, den folgenden Delphi-Code (von http://delphi.about.com/od/windowsshell ... 00703b.htm" onclick="window.open(this.href);return false;) in einem Lazarus-Projekt zu verbauen:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := AppMessage;
end;
 
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.Message = MyMsg then
   begin
      Application.Restore;
      SetForeGroundWindow(Application.MainForm.Handle);
      Handled := true;
   end;
end;

Dummerweise haben aber weder Application noch TForm einen Event namens OnMessage ... wie kann ich in Lazarus mit SendMessage() generierte Nachrichten auswerten?

Danke fuer Euren Input!

[DiBo33]

Willst du nur eine Instance deines Programms zulassen?
http://wiki.lazarus.freepascal.org/UniqueInstance/de" onclick="window.open(this.href);return false;

[Eclipticon]

Ja, will ich, UniqueInstance kann ich aber aus Lizenzgruenden nicht verwenden ...

[DiBo33]

Aber du kannst dir anschauen, wie es mit den Messages gelöst wurde.

[marcov]

Ja, will ich, UniqueInstance kann ich aber aus Lizenzgruenden nicht verwenden ...

Dan kannst du auch Lazarus oder FPC nicht verwenden? Dessen Bilbiotheken sind unter denselben Lizenz.

[Eclipticon]

Dan kannst du auch Lazarus oder FPC nicht verwenden? Dessen Bilbiotheken sind unter denselben Lizenz.

Der Mensch erschreckt mich Ich hatte mich bei UniqueInstance verlesen und gedacht, es waere unter GPL, ist aber LGPL ... dann werd ich doch einen naeheren Blick drauf werfen ... Danke!