Czy ktoś może wie jak uzyskać taką formę? Dodatkowo fajnie by było jakby zachowawywała się jak ta "oryginalna" od Windowsa. Mam tu na myśli identyczne położenie względem task bara.
0
0
BorderStyle - bsNone
na formę kładziesz Timage w zależności od potrzeb.
0
BsNone usuwa całkowicie ramkę.
0
Obrazek ,który zamieściłem chyba wszystko powinnen wyjaśnić.
0
Na forum.doom9.org już mi ktoś pomógł. Wklejam kod bo może się komuś przyda.
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
public
{ Public-Deklarationen }
end;
procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE, WS_OVERLAPPEDWINDOW and (not WS_CAPTION)); // Tworzenie specjalnego okna
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE);
end;
procedure TForm1.WMNCHitTest(var Msg: TMessage); //Ta procedura blokuje skalowanie okna (Brak ikonki po najechaniu na krawędź okna)
begin
inherited;
case Msg.Result of
HTTOP: Msg.Result := HTCLIENT;
HTTOPLEFT: Msg.Result := HTCLIENT;
HTTOPRIGHT: Msg.Result := HTCLIENT;
HTBOTTOM: Msg.Result := HTCLIENT;
HTBOTTOMLEFT: Msg.Result := HTCLIENT;
HTBOTTOMRIGHT: Msg.Result := HTCLIENT;
HTLEFT: Msg.Result := HTCLIENT;
HTRIGHT: Msg.Result := HTCLIENT;
end;
end;