Simulere en titellinje

Dette er den besværlige måde, håber den gir\' mening.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    procedure Idle(Sender: TObject; var Done: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mouse: boolean;
  mp: tpoint;

implementation

{$R *.DFM}

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
var
  p: TPoint;
begin
  if mouse then begin
    done:=false;
    GetCursorPos(p);
    form1.left:=p.x-mp.x;
    form1.top:=p.y-mp.y;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle:=Idle;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if y<10 then begin
    mouse:=true;
    mp.x:=x;
    mp.y:=y;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mouse:=false;
end;

end.

MVH
abpdk

Jeg har været ude for det samme problem... Prøv dette her (denne kode virker dog for HELE din form, da den er skrevet i FormMouseDown & FormMouseMove Procedure - men det kan du jo sagtens flytte til en hvilken som helst anden control\'s MouseDown & MouseMove Procedure)

var sx, sy : integer;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
sx := x; sy := y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

if ssleft in sshift then begin
if x < sx-1 then left := x-(sx-left);
if x > sx+1 then left := x+(left-sx);
if y < sy-1 then top := y-(sy-top);
if y > sy+1 then top:= y+(top-sy); end;

end;

GOD FORNØJELSE!

ZeroHero

ups - i mousemove proceduren har jeg skrevet et \'s\' for meget linien skal se sådan ud:

begin

if ssleft in shift then begin...

tsk, tsk

hvorfor opfinde den dybe tallerken to gange?

I den ting der skal fungere som title linje, indsættes koden på OnMouseDown:

begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand, $f012, 0);
end;

hvis title linjen er en del af et helt billede, bruges der bare et tomt TImage, der \"ligges\" oven på.


easysoft studios

ice>> Har du fundet en brugbar løsning?

vi vil ha\' vores point, sgu!!

Man begynder at føle at man har spildt sin tid!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Eksperten burde have en funktion som tjekker spørgsmål og automatisk lukke dem, hvis de er blevet besvaret og ikke er blevet lukket af den oprettende spørger, efter en hvis tidsrum.

Nemlig!

Undskyld!!!!!!!!!!!!, jeg har været på ferie og har glemt alt om spørgsmålet. Jeg har ikke tjekket hvad der er bedst, men deler pointene. Håber i kan tage imod min undskyldning, det skal aldrig ske igen......

Undskyldning godtaget