|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Prozedur weiterleiten
22. Dez 2010, 21:49
IMHO: Message ist Message
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Canclose := False;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Sendmessage(Application.Handle,WM_Endsession,0,0)
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (22. Dez 2010 um 21:51 Uhr)
|