Heise News im System-Tray...

[elliot2extreme]

Zitat von mytar:

Wie bekommst du eigentlich solche Forms, die sind ja ganz ohne Windows-Style und normalem Border, wie macht man das?

Hi,

du kannst bei einem Formular in Delphi doch einen Borderstyle auswählen. Wenn du diesen auf bsNone stellst ist die Titelleiste weg und du hast auch keinen Rand mehr.

Jedoch hast du dann keine Möglichkeit mehr dein Formular zu verschieben.

Es gibt aber die Möglichkeit wie bei Winamp dort ist es egal wo man hinklick um das Fenster zu verschieben. Hier der Source dafür.

Diese Procedure musst Du im Private-Abschnitt deklarieren:

Delphi-Quellcode:

procedure WMNCHitTest(var M: TWMNCHitTest); 
  message wm_NCHitTest;

Und hier die eigentliche Implementation der Procedure:

Delphi-Quellcode:

procedure TForm1.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then 
    M.Result := htCaption;
end;

htClient gibt an, dass Du dich im normalen Bereich Deiner Anwendung befindest, also nicht die Titelleiste bewegst. Mit htCaption wird die Titelleiste angesprochen und diese soll emuliert werden.

Gruß Markus