Forum: Win32/Win64 API (native code)
Delphi
by k4ni,
23. Jan 2008
Danke leute.
Ich wusste nicht wirklich nach was ich suchen soll.
Das von Klaus hat leider nicht funktioniert, aber das:
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
SetCaptureControl(nil);
Forum: Win32/Win64 API (native code)
Delphi
by k4ni,
23. Jan 2008
heyy,
Ich habe gestern angefangen meinen selfupdater zu machen und hab mein eigenes UI erstellt.
Also bei BorderStyle := bsNone und hab dann einen "X" und "_" button zum schließen und minimieren dazugemacht.
Doch jetzt kann man das fenster ja nichtmehr verschieben. Und jetzt will ich oben dort wo die 2 buttons sind eine fläche erstellen mit der man das fenster verschieben kann. WIe geht...