mam sobie procedurke
procedure TFMain.WndProc(var Msg: TMessage);
begin
if (Msg.Msg = WM_SIZE) and (Msg.WParam = SIZE_MINIMIZED) then
Application.MainForm.Visible := False ;
inherited;
end;
i mam sobie druga procedurke
procedure TFMain.KlikniecieWTray(var Message: TMessage);
var
Punkt : TPoint;
begin
case Message.LParam of
WM_LBUTTONUP:
FMain.Visible := not FMain.Visible;
WM_RBUTTONDOWN:
begin
GetCursorPos(Punkt);
PopupTray.Popup(Punkt.x,Punkt.y);
end;
end;
end;
obie rabia to samo tylko ta druga obsluguje zdarzenie klikniecie w ikone w trayu a a pierwsza powinna robic to samo tylko w zdarzeniu minimalizacji okna...
tylko wlasnie tu jest problem jak ta druga dziakla bez zarzutu to pierwsza robi cos dziwnego znika fomatka ale program pozostaje na dole na pasku okien - i nie moge tego przywrocic do normalnego widoku - czy ktos wie co jest grane
wanze: jezeli chcesz napisac poczytaj tu czy tam to sobie daruj bo juz przeczytalem wszystkie art. na temat komunikatow na tej stronie
prosze o konkretne posty a nie gdybanie...
pozdr