Vergrößer/kleinerbarer Dialog

[cruiser]

Ja, ich habe die Suche, sowohl google als auch in der DP rauf und runter gesucht, aber vielleicht gibts ja hier nen Schlaueren Kopf ;)

Ich möchte in einem Programm einen Custom-Dialog anbieten, der den typischen Dialogstil nutzen soll, aber in der Größe änderbar sein soll.

Folgendes habe ich bereits versucht um einen Custom-Dialog vergrösserbar zu machen:

Borderstyle auf bsDialog -> weder über API-Aufrufe noch über böse Tricks veränderbar

Borderstyle auf bsSizeable -> Icon+Systemmenu links oben

Ich hab jetzt drei Fragen, die aufs selbe abzielen:

1.) Kennt jemand eine Routine, die einen Dialog (bsDialog) vergrösserbar macht?

2.) Kennt jemand eine Routine, die das Systemmenu (bei bsSizeable) komplett entfernt, das [X] rechts aber lässt?

3.) Gibt es noch einen anderen Weg, das Ziel zu erreichen?

Danke schon mal im Voraus.

[Guido Eisenbeis]

Hallo Ronny.

Ich habe mal ein bisschen rumprobiert.

Zitat:

Zitat von cruiser

1.) Kennt jemand eine Routine, die einen Dialog (bsDialog) vergrösserbar macht?

Das habe ich mit großem Einfallsreichtum und sehr beherzt probiert. Aber leider ohne 100-prozentigen Erfolg.

Zitat:

Zitat von cruiser

2.) Kennt jemand eine Routine, die das Systemmenu (bei bsSizeable) komplett entfernt, das [X] rechts aber lässt?

Das habe ich genauso intensive ausgelotet. Irgendwann habe ich meine Bemühungen auch dahingehend eingestellt, als ich schmunzeld feststellte, wieviel Zeit für so ein "kleines" Problem draufgeht. :wink:

Zitat:

Zitat von cruiser

3.) Gibt es noch einen anderen Weg, das Ziel zu erreichen?

Ist ja auch der letzt Punkt auf der Liste und auch die letzte Möglichkeit (für heute). Ich habe dir mal was zusammengebastelt. Die Lösung ist nicht ganz programmiertechnisch gehalten, sondern mit dem ein oder anderen Trick (unsichtbares Icon). Naja, ist halt "ein anderer Weg, das Ziel zu erreichen". Schaus dir an, obs dir gefällt.

Gruß,
Guido.

[hsg]

Und wo liegt das Problem bei Frage 2:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

  BorderIcons := [biSystemMenu];
end;

Lässt bei mir nur das X aktiv, der Maximieren und Minimieren Button sind nicht mehr sichtbar.
Oder war es das nicht, was du wolltest?

[cruiser]

@Guido: danke... auch das hatte ich schon... ein nicht sichtbares Icon auf dem ein Menu aufpoppt ist auch nicht so recht, was ich brauch. Das könnte zu verwirrungen führen.

@HSG: Das ist doch exakt Methode 2, die das Icon da lässt. Das Icon links soll weg, das X rechts soll bleiben.

Naja... wenn es keinen Weg gibt, lass ich eben das Icon, was ich reingezimmert hab :|

[Sidorion]

Eventuell ist bsSizeToolWin Dein Freund .. Dann ist der Dialog zwar unter Luna eckig und nicht gelutscht, aber was solls.

[Guido Eisenbeis]

Hallo Ronny.

Zitat:

Zitat von cruiser

@Guido: danke... auch das hatte ich schon... ein nicht sichtbares Icon auf dem ein Menu aufpoppt ist auch nicht so recht, was ich brauch. Das könnte zu verwirrungen führen.

:wiejetzt: Ehrlich gesagt bin ich jetzt etwas enttäuscht!


Ich habe mir die Mühe gemacht, etwas für dich zu entwickeln. Da solltest du dir wenigstens die Mühe machen, es dir anzusehen!

Ich habe es dir doch wirklich mundgerecht verpackt. Vielleicht war das ein Fehler!? Da ist ein nicht sichtbares Icon, das stimmt. Aber da ist nirgends ein Menü das aufpoppt!

Falls du doch eins findest, sag Bescheid.

Guido.

[cruiser]

@Guido: Entschuldige. So wars nicht gemeint... ja, ich HAB es mir nicht angesehn, einfach, weil ich auch kein Icon da haben möchte.

@Sidorion: mh... Wäre ne Möglichkeit, aber ich möcht schon gern das Standard-Design nutzen

Ich bastel grade an einer Komponente, die das Resizing auch für bsDialog aktiviert. Die nacht spätestens morgen sollt sie zum Testen bereit sein.

Und noch mal DANKE an ALLE, die geantwortet haben.

Edit: So, da isse, die Komponente. Funktioniert wunderbar, ist aber nicht optimiert

Edit2: Hoppla... war ja doch 'n dicker Käfer drin. Opzimiert isses noch immer nich, aber der Käfer ist raus

[cruiser]

Die Komponente bzw. der interne Thread ist zu verbugged, darum nehm ich sie erst mal raus. Das Ergebnis meiner Versuche, doch eine saubere Lösung zu finden ist in diesem Thread.

[Guido Eisenbeis]

Hallo Ronny.

Zitat:

Zitat von cruiser

@Guido: Entschuldige. So wars nicht gemeint...

Entschuldigung angekommen, Danke angekommen, beweist Anstand -> meine Hilfe kriegst du immer wieder gerne! :)

Gruß,
Guido.