hi @all
ich möchte mein prog mit klick auf einen tshape minimieren, dazu möchte ich folgenden quelltext benutzen:
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Application.Minimize; end; |
doch wenn ich dann auf den shape klicke, blinkt dieser einam nur so komisch kurz auf, minimiert sich aber nicht
ich habe auch probiert einen timer zu aktivieren auf klick des shapes, quelltext vom timer:
Delphi-Quelltext
so, dann minimiert er auch, aber wenn ich das programm wieder benuzten will, also aus der taskleiste hole, minimiert es sich gleich wieder, der timer is ja noch an, also hab ich den timerquelltext erweitert:
Delphi-Quelltext
1: 2:
| Application.Minimize; Timer1.Enabled := false; |
doch dann blinkt mein programm wieder nur einmal so komisch auf, wisst ihr eine lösung?
greetz