In Abhängigkeit vom Herkunftsformular neues Formular optisch dynamisch zur Laufzeit..

[Bornholdt]

..anpassen.

Hallo zusammen,

eine Frage von einem Programmieranfänger: ich habe ein Dialog, bei dem ich wenn er von Formular A geöffnet wird 4 Buttons anzeigen möchte, wird der selbe Dialog von Formular B geöffnet sollen nur 2 Buttons angezeigt werden.

Kurzzm: "in Abhängigkeit vom Herkunftsformular soll das sich öffnende Formular (Dialog) unterschiedlich aussehen".

Gibt es dafür Codebsp/Anleitungen/Hilfe?

Viele Grüße
Bornholdt

[Jasocul]

Bevor du deinen Dialog zeigst (vermutlich mit ShowModal), schreibst du folgendes:

Delphi-Quellcode:

  DeineDialogform.Button3.Visible := False; // oder True
  DeineDialogform.Button4.Visible := False; // oder True

Ob False oder True, hängt davon ab, aus welchem Formular du den Dialog aufrufst.

[jaenicke]

Im Sinne der objektorientierten Programmierung wäre es sinnvoller das zu kapseln:

Delphi-Quellcode:

TDialogForm = class
private
  FCanCancel: Boolean;
public
  property CanCancel: Boolean read FCanCancel write SetCanCancel;
end;

procedure TDialogForm.SetCanCancel(const Value: Boolean);
begin
  FCanCancel := Value;
  btnCancel.Visible := Value;
end;

Auf diese Weise fummelt man nicht von außen an internen Elementen der Klasse herum und hat zudem mit der Property auch eine sinnvolle Benennung warum da etwas sichtbar ist oder nicht.

[Klaus01]

.. auch im Sinne von OOP könntest Du Dialog.create überladen (polymorphy)
z.b. Dialog.create(Parameter).

Grüße
Klaus

[Jasocul]

Im Sinn von OOP und vernünftiger Kapselung habt ihr beide Recht. Bedenkt aber, dass der TE ein Anfänger ist und evtl. erstmal eine einfache Lösung benötigt. Trotzdem sollte er natürlich eure Hinweise beachten.

Auch ich programmiere anders. Bei mir gibt es zum Beispiel immer eine Klassen-Prozedur, die alle notwendigen Parameter bekommt. In dieser Prozedur wird die Form erzeugt, eingestellt, verwendet und wieder zerstört. Zugriffe von außen gibt es praktisch gar nicht.

[bernau]

Zitat von Jasocul:

Auch ich programmiere anders. Bei mir gibt es zum Beispiel immer eine Klassen-Prozedur, die alle notwendigen Parameter bekommt. In dieser Prozedur wird die Form erzeugt, eingestellt, verwendet und wieder zerstört. Zugriffe von außen gibt es praktisch gar nicht.

Bei mir seit 2-3 Jahren genau so. Bei alten Projekten gibt es ein refactoring, sobald ich an alten Formularen arbeite. Eine Form hat dann immer folgende Kassenfunktion

Delphi-Quellcode:

class function TMeineForm.Execute:boolean;overload;
class function TMeineForm.Execute(aEinBesondererParameter:boolean):boolean;overload;

In den Funktionen wird das Form erzeugt und bei Dialogen auch freigegeben.

Aufgerufen wird das Formular dann so:

Delphi-Quellcode:

if TMeineForm.Execute then
  ...


if TMeineForm.Execute(true) then
  ...

Alles viel Übersichtlicher geworden.

[hoika]

Hallo,
Frage wurde ja bereit mit verschiedenen Lösungen beantwortet.
Welche Lösung am schnellsten ist, hängt vom aktuellen Quellcode ab.

Den hier bitte auszugsweise posten.