Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Nov 2016
Joar, ist es, aber in 10 Monaten hast du es vergessen und willst es nochmal für was Anderes benutzen.
Und ich wette du würdest Application.OnMessage nicht auf Assigned prüfen, vor der neuen Zuweisung. :angle::zwinker:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Nov 2016
Ich hab ihn nochmal bissl ausgeschmückt, meinen Text.
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Edit1.Handle, True);
DragAcceptFiles(Edit2.Handle, True);
Application.OnMessage := AppMessage;
PopupMode := pmAuto; //BorderIcons := ;
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Mär 2010
If the value of this parameter is 0xFFFFFFFF
Und es sollte erwähnt werden, daß Application.OnMessage überschrieben wird (falls dieses wer übersieht) und in seinem Programm selber dort schon etwas Anderes zugewiesen hat, bzw. noch zuweisen tut.
type
TForm1 = class(TForm)
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;
uses