Folgender Code funktioniert bei mir:
Delphi-Quellcode:
procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message = WM_LBUTTONDOWN) then
Perform(WM_SYSCOMMAND, $F012, 0);
end;
Anmerkung:
Ich habe CRM : TChromium auf ein Panel gesetzt.
Allerdings finde ich es NICHT gut, bei einer Message-gesteuerten Komponente wie TChromium mit solchen Aktionen dazwischen zu fummeln.
Das ist auch unnötig.
TChromium ist MISERABEL programmiert und haut 100e Messages raus, ohne dass irgend etwas davon nötig ist!!!