Größe einer Groupbox zur Laufzeit ändern

[maddin4u]

Hallo

Ich möchte die Größe einer Groupbox zur Laufzeit ändern, indem ich wenn ich an die Kanten gehe und die Maus Gedrückt halte die Groupbox größer ziehe.

Wie funktioniert das?

Danke!

[Dax]

Jedes VCL-Control hat eine Eigenschaft Height für die Höhe und Width für die Breite.
Zum Beispiel macht man einen Button so 100 Pixel breit:

Delphi-Quellcode:

Button1.Width := 100;

[glkgereon]

also, zum verschiebn ginge es so:
tx und ty sind globale integer
OnMouseDown:

Delphi-Quellcode:

  tx:=x;
  ty:=y;

OnMouseUp:

Delphi-Quellcode:

  GroupBox1.Top:=GroupBox1.Top+y-ty;
  GroupBox1.Left:=GroupBox1.Left+x-tx;

dann musst du das nur auf width/heigth übertragen...

[Nicodius]

bitte einmal die OH/suche verwenden :roll:

[maddin4u]

Die Hilfe hab ich bedient .. aber nicht genau das gefunden was ich wollte. :-D

Ihr kennt doch den Pfeil mit den beiden Pfeilspitzen links und recht, der kommt wenn man am Rand von einem Fenster ist. Wenn man dann die Maus gedrückt hält kann man doch die Größe ändern. So wollte ich es für meine Groupbox auch haben.

Ist das mit diesem "Pfeil" irgendwie zu realisieren?

Danke

[Nicodius]

einen button ala "BitBtn" aus der spalte Zusätzlicehs aufs form einen pfeil zeichnen und über glyph einbinden

und dort den code rein (der jetzt fürs nach linksschieben

Delphi-Quellcode:

  GroupBox1.left := GroupBox1.left-1;

ODER


TScrollbar aus der Spalte standart und dann einfach mal hier unter Scrollbar suchen ;)

[maddin4u]

Sorry das ist nicht das was ich gesscht habe ...

Ich habe jetzt noch weiter geforscht.

Auf dieser Seite: http://advweb.lsn.net/~richardp/delp...ps/note_30.htm

bin ich fündig gewordern.

Tortzdem Danke .....

[Nicodius]

sorry ... hab falsch gelesen :pale:

[SirThornberry]

Zitat:

Zitat von glkgereon

also, zum verschiebn ginge es so:
tx und ty sind globale integer

Von der grundidee her ok, aber warum globale Variablen? :roteyes:
es gibt auch noch einen Private und Public-Bereich bei den Forms