Rahmen beim Resizen als Form

[Armageddon]

Hallo allerseits,

quäle mich schon seit Stunde mit einem Problem hier herum. Möchte gerne das wenn ich bei meiner Anwendung zur Laufzeit die Formgröße mit der Maus ändere das ein Rahmen angezeigt wird und das Form nach los lassen der Maustaste wieder neu gezeichnet wird. Ich krieg das einfach nicht gebacken mit dem Rahmen. Ich denke das kann doch nicht so schwer sein aber ich sehe mal wieder den Wald vor lauter Bäumen nicht. Ihr könnt mir doch sicher helfen mit nem kleinen Beispiel. Oder?

Wär Euch sehr zu Danke verpflichtet.

Gruß Arma

[Joe24]

mit

Delphi-Quellcode:

Perform( WM_SYSCOMMAND, SC_SIZE +x, 0);

kann die Größe einer visuellen Komponente per Maus geändert werden.

[Armageddon]

Danke Joe24,

aber wie und wo rufe ich es genau auf? Hättest vielleicht nen klein bisserl Code für mich. Ein mini Beispiel. büüdddeeeee....

:roll:

[Luckie]

Äh ja wie? Das geht doch automatisch, wenn die Form den BorderStyle bsSizable hat. Und eine Paint Nachricht sollte sie von Windows automatisch bekommen, auf die man reagieren kann.

[Joe24]

Poste mal ein wenig code von Dir als Anhaltspunkt. Mir ist nicht ganz klar mit welcher Komponente Du das Resizen vorhast. Ein Formular der Klasse TForm verleiht man doch über BorderStyle = bsSizable diese Eigenschaft. bsSizable ist dazu noch der voreingestellte (default) Wert.

[Armageddon]

Ja schon Luckie,

aber mein Prob ist das der Inhalt des Forms wegen meinen Angaben zur Komponentenausrichtung während des Größenänderns der Form sichtbar bleibt und ich dadurch einen nicht allzu schönen Effekt kriege. Der da wär das wenn ich das Fenster packe und von rechs nach links kleiner ziehe die Komponenten nach und nach unterm bzw. hinter dem rechten Rahmen des Fensters verschwinden und erst nach los lassen der Maustaste werden die Komponenten wieder neu gezeichnet. Hab da wohl noch voll den Wurm drinnen. :gruebel:

Wie würde man so ein neu Ausrichten der Komponenten im Fenster professionel lösen? Habe hier in der Hilfe schon nach allen möglichen Stichworten gesucht und auch gegoggelt aber nichts gefunden was mir weiter helfen könnte. :?

P.S. @Joe Mit Code posten wird es heute schwierig, da Code auf nem andern Rechner. Mach die Kiste erst morgen wieder an wenn ich wieder nen klaren Kopf habe.

[Joe24]

benutze die Eigenschaften Align oder Anchors der Komponenten

[Armageddon]

Och nee dazu hab ich keine Lust *g* ich mag es doch gern kompliziert. Naja macht Euch mal keine Gedanken. Ich probier es Morgen mal wieder und wenn ich nicht weiter komme dann melde ich mich natürlich wieder. Denn so gute und vor allem Schnelle Antworten wie hier in der DelphiPraxis findet man sonst nirgends im Netz. Wünsch Allen noch ein frohes Fest und besinnliche Festtage. :hi:

[Luckie]

Zitat:

Zitat von Armageddon

JaDer da wär das wenn ich das Fenster packe und von rechs nach links kleiner ziehe die Komponenten nach und nach unterm bzw. hinter dem rechten Rahmen des Fensters verschwinden und erst nach los lassen der Maustaste werden die Komponenten wieder neu gezeichnet.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyButton: Tbutton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyButton := TButton.Create(Form1);
  MyButton.Parent := Self;
  MyButton.SetBounds(10, Height-60, 75, 22);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  MyButton.SetBounds(10, Height-60, 75, 22);
end;

Kann ich nicht nachvollziehen.

[Armageddon]

So habe jetzt nochmal getestet. Habe auf ein leeres Form ein Memo eingefügt, compiliert, das From kleiner geschoben und gesehen das wenn der Rand des From's das Memo berührt automatisch die Bildlaufleisten eingeblendet werden. Ich aber möchte das ich beim ziehen mit der Maus einen Rahmen der Größe die das Form haben wird wenn ich die Maustaste loslasse sehe. Dat muß doch irgendwie gehen. Beim InternetExplorer oder andereren Anwendungen geht es ja auch. *schnieff* Ich stell mir das so vor einfach nen Rahmen vom linken oberen Eck zur aktuellen Mausposition zeichnen und bei loslassen der Maustaste die Größe setzen usw. Hoffe Ihr vesteht jetzt was ich meine.

Gruß Arma