Fjerne hele den øverste linie

Tags:    delphi

Hejsa. Hvordan fjerner man den der linie øverst, hvor der er et ikon, så navn på program , og til sidst 3 knapper (Minimer, maximer, luk)

Hvordan fjernes den linie ?



6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
Releasecapture;
Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);


Sæt det på OnMouseDown
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------



Hei.

Putt denne koden i formens OnMouseDown event:
Fold kodeboks ind/udKode 


Mvh
DiZpel



Sæt formens borderstyle til bsNone




-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------



Sæt formens borderstyle til bsNone




-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------


Nice, så skal jeg bare finde ud af hvordan jeg kan rykke rundt med vinduet når den er væk :)



Releasecapture;
Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);


Sæt det på OnMouseDown
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------


procedure TForm1.Button6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;

end.

Der sker intet :)



Der sker intet :)


du mangler også releasecapture..

Jeppe Johansen
Jeppesoftware@hotmail.com



t