Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Delphi-Laie,
5. Dez 2009
procedure TMainForm.CoolTrayIcon1Startup(Sender: TObject; var ShowMainForm: Boolean);
begin
if {Bedingung(en), die zu trayminimiertem Start führt bzw. führen} then
begin
ShowMainForm:=false;
CoolTrayIcon1.hideMainForm
//evtl. weitere Aktionen
end
else
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Delphi-Laie,
5. Dez 2009
Ich benutz(t)e dafür die Komponente "CoolTrayIcon". Sie auch?
Diese Komponente, konkret jedes seiner Objekte, besitzt das Ereignis "OnStartup", in dem sich die Bedingungen für die boolsche Eigenschaft "IsMinimized" (gilt für das Formular, in dem das CoolTrayIcon-Objekt eingebettet ist) festlegen lassen. Funktioniert bei mir prima.