Sie sind nicht angemeldet.
Freitag, 9. März 2007, 00:50
Freitag, 9. März 2007, 01:58
Zitat
Original von martinmartimeo
hat jemand einen Script der das Reagieren auf das Minimeiren von Fenstern (nicht Anwendung) möglich macht?
Freitag, 9. März 2007, 18:49
Freitag, 9. März 2007, 21:15
|
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;
|
Freitag, 9. März 2007, 21:37
Freitag, 9. März 2007, 21:56
|
|
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)
Freitag, 9. März 2007, 22:47
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?
Mittwoch, 28. März 2007, 01:04
Application.Minimize ? Die Prozedur soll Wunder wirken...
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)
Donnerstag, 29. März 2007, 13:56
Sonntag, 1. April 2007, 22:13
Also wenn du irgendeine Form2 einer Anwendung minimierst
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.
.
