 |
|||
| HSG |
|
Nachrichten
Unter Windoes treten laufend Ereignisse ein, die in einer Nachrichtenschleife verarbeitet werden. In diese Nachrichtenverarbeitung kann man eingreifen, wie das folgende kleine Beispiel zeigt. Button 2 wird zusammen mit Button 1 eingedrückt und wieder losgelassen.
Die Delphi-Hilfe zur Win32-API ist zunächst die naheliegendeste Informationsquelle.
procedure TForm1.b2Click(Sender: TObject); begin windows.Beep(440,100); end; procedure TForm1.b1Click(Sender: TObject); begin PostMessage(b2.Handle,cn_Command,bn_Clicked,0); end; procedure TForm1.b1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PostMessage(b2.Handle,BM_SETSTATE,1,0); end; procedure TForm1.b1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PostMessage(b2.Handle,BM_SETSTATE,0,0); end;
Literatur
- Delphi7, Fortgeschritte Programmierung - www.herdt.de
- Max Kleiner, UML mit Delphi
- Charles Petzold, Windows-Programmierung - Das Entwicklerhandbuch zur Win32-API
Links
