Verschieben beim bsNone

Niko S. · Verfasst: Sa 29.04.06 09:31

öhm ich haette da mal ne frage ^^

ich wollte nen programm mit sozusagen eigenem style machen also als hintergrund nen bild und so

nun es würde auch alles gehen soweit reicht meine erfahrung aus doch

ich kann das fenster nicht bewegen wenn Borderstyle := bsNone
is x.x

wie kreig ich also hin das man das fenster verschieben kann wenn ik das bsNone habe?

Thx für antwort

Xion · Verfasst: Sa 29.04.06 09:39

hi

würde sagen du musst das so ähnlich machen, wie wenn du ein label verschieben würdest. also mit hilfe der maus-position bei onmousemove die Form (Form.Left/Form.Top) verschieben. hab sowas aber noch nie gemacht

Xion

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Xion · Verfasst: Sa 29.04.06 09:47

hab da etwas code gebastelt, im prinzip funktionierst (naja, so einigermaßen), aber er malt die Form jedesmal neu hin, und macht die alte nicht weg. sieht ziemlich blöd aus :wink:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

var
  Form1: TForm1;
  MousePress: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Left:=X;
 Form1.Top:=Y;
 MousePress:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if MousePress=True then
  begin
   Form1.Left:=X;
   Form1.Top:=Y;
  end;
end;

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

Moderiert von matze: Code- durch Delphi-Tags ersetzt

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Xion · Verfasst: Sa 29.04.06 09:54

das problem ist, man bräuchte die position von der maus auf dem bildschirm, nicht auf der form :gruebel:

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Xion · Verfasst: Sa 29.04.06 09:57

ich habs jetzt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

var
  Form1: TForm1;
  MousePress: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Left:=Mouse.CursorPos.X-10;
 Form1.Top:=Mouse.CursorPos.Y-10;
 MousePress:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if MousePress=True then
  begin
   Form1.Left:=Mouse.CursorPos.X-10;
   Form1.Top:=Mouse.CursorPos.Y-10;
  end;
end;

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

so funktionierts wunderbar

Moderiert von matze: Code- durch Delphi-Tags ersetzt

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Niko S. · Verfasst: Sa 29.04.06 10:11

danke

würde das auch gehn hald das die maus da bleibt wo sie sit und dasn fesnter auch also das nich das fenster so springt an der bestimmten stelle aber hald nicht das es ausseiht wie beim ersten versuch das ist voll komisch xD

aber so ist das schon perfekt thx ;D

Xion · Verfasst: Sa 29.04.06 10:25

So?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
  Form1: TForm1;
  MousePress: boolean;
  MousPosX,MousPosY: integer;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MousPosX:=X;
 MousPosY:=Y;
 MousePress:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if MousePress=True then
  begin
   Form1.Left:=Mouse.CursorPos.X-MousPosX;
   Form1.Top:=Mouse.CursorPos.Y-MousPosY;
  end;
end;

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

end.

Moderiert von Motzi: Code- durch Delphi-Tags ersetzt

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

Motzi · Verfasst: Sa 29.04.06 10:30

Es geht noch viel Einfacher..

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
  Msg.Result := HTCAPTION;
end;

Gruß, Motzi

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

Niko S. · Verfasst: Sa 29.04.06 13:39

danke dafür ^^

ich hab ma noch ne frage (muss man ja nid extra posten)

kann man den style oder farbe von den tabs ändern?
also wenn man ein tabbed notebook hat x.x

denn ist der hintergrund vllt schwarz und die tabs da oben sind graud das sieht nicht wirklich schön aus

Motzi · Verfasst: Sa 29.04.06 18:08

Neue Frage neuer Thread!

Und nachdem die Frage ja nun beantwortet ist - closed.

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme