Lieber Besucher, herzlich willkommen bei: AnnoZone Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Zitat
Original von martinmartimeo
hat jemand einen Script der das Reagieren auf das Minimeiren von Fenstern (nicht Anwendung) möglich macht?
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure GetMessages(var msg: TMsg; var handled: boolean); { Private-Deklarationen } public { Public-Deklarationen } end; procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean); var formrechts: integer; begin if (msg.message = 274) OR (msg.message = 275) then begin //Klick auf SystemButon im blauen if Form1.WindowState = wsNormal then begin //im normalen Zustand wird gedrückt formrechts := Form2.Left + Form2.Width; if (msg.pt.X > formrechts - 90) and (msg.pt.X < formrechts- 50) then begin //X Kordinaten (wurde auf minimiert gedrückt?) ShowWindow(Unit2.Form2.Handle,SW_NORMAL); //Form wieder zeigen Application.Minimize; //nun ganze Anwendung minimieren end; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=GetMessages; KeyPreview := true; end; |
Benutzerinformationen überspringen
Pensionierter Oberbordschrauber
Registrierungsdatum: 24. Mai 2003
Quellcode |
|
1 2 3 |
WM_STYLECHANGED Notification The WM_STYLECHANGED message is sent to a window after the SetWindowLong function has changed one or more of the window's styles. |
Quellcode |
|
1 2 3 4 5 6 |
TWMStyleChange = packed record Msg: Cardinal; StyleType: Longint; StyleStruct: PStyleStruct; Result: Longint; end; |
Quellcode |
|
1 2 3 4 |
private { Private-Deklarationen } procedure WMSTYLECHANGED(var Msg: TWMSTYLECHANGED);message WM_STYLECHANGED; |
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »martinmartimeo« (9. März 2007, 22:00)
Benutzerinformationen überspringen
Pensionierter Oberbordschrauber
Registrierungsdatum: 24. Mai 2003
Zitat
Original von martinmartimeo
naja was besseres ist mir nicht eingefallen, nun WM_Size gibt mir aber auch nicht mehr als die Fenstergröße, die ich ja mit Form.Width, ... auch bekomme?
Application.Minimize ? Die Prozedur soll Wunder wirken...Zitat
Original von martinmartimeo
HI und Hallo,
Da wenn man auf minimieren klickt, einfach nur die Form minimiert wird, der Rest aber stehend bleibt. Ich wollte aber mit Application.Minimize; die komplette Anwendung minimieren, nur ich finde halt keine Möglichkeit auf das Minimeiren des Fensters zu reagieren (Application.OnMinimize wird ja auch nicht ausgelöst).
Ich hoffe es ist klar
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »drkohler« (28. März 2007, 01:05)
Benutzerinformationen überspringen
Pensionierter Oberbordschrauber
Registrierungsdatum: 24. Mai 2003
Also wenn du irgendeine Form2 einer Anwendung minimierstZitat
Original von Sir Henry
Dieter, es ging nicht um die Funktion, sondern um den Event. Welcher Event zeigt an, dass eine einzelne Form (und nicht die ganze Applikation) minimiert wurde? Die Reaktion darauf war schon klar.
.
1 Besucher