
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