msn uyarı formu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
skyking
Üye
Mesajlar: 136
Kayıt: 09 Kas 2005 12:52
Konum: Antalya

msn uyarı formu

Mesaj gönderen skyking »

msn deki gibi acılan ve hep ekranda kalan ve bir sure geçtikten sonra kapanan bir form yaptım

sorunum

always on top kulanıyorum hep ekranda kalıyor ama
masa usutu göster simgesine bastıgım zaman ekrandan kalmıyor form

msn deki uyarı formu boyle değil
yani masa ustunu göster simgesimne bastıgımız zaman ekrandan kaybolmuyor

bu sıkıntıgı nasıl asabilirim?

bu komut formu hep onde tutuyor
ama masa ustu goster simgesinde ekrandan kayboluyor
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Selam

- Tamamen ezber bir çözüm olduğundan direkt kod yazıcam... :idea:

Kod: Tümünü seç

  private
    procedure OnShowDesktop (var Msg: TWMShowWindow); message WM_SHOWWINDOW;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.FormStyle := fsStayOnTop;
end;

Kod: Tümünü seç

procedure TForm1.OnShowDesktop(var Msg: TWMShowWindow);
begin
  if not Msg.Show then
    Msg.Result := 0
  else
    inherited;
end;
Resim
Resim ....Resim
Kullanıcı avatarı
skyking
Üye
Mesajlar: 136
Kayıt: 09 Kas 2005 12:52
Konum: Antalya

Mesaj gönderen skyking »

cok saolun istediğim tam buydu elinize saglık
Cevapla