Komponenten in MessageDlg

[chri_ri]

Ich denke, dass ich hier in der richtigen Rubrik bin.

Ich wollte fragen, ob es eventuell irgendwie möglich ist z.B. eine TComboBox in z.B. einem TMessageDlg darzustellen.

Mir geht es darum, dass ein Tool von mir beim Starten einen dieser typischen "Sprache wählen"-Dialoge anzeigen soll und ich deshalb nicht extra eine neue TForm verwenden möchte.


Wäre sehr interessant, wenn das gehen würde und mir jemand dazu nen Tipp geben könnte.


Schonmal vielen Dank im Vorraus!



mfg. chri_ri

[hamburcher]

Selbst ist der mann :-) Umständlich, aber immerhin ein Anfang

[chri_ri]

Ok, erstmal THX^^

werde es mir mal anschauen^^


//EDIT
Also der Link ist echt interessant, aber nicht das was ich suche.

Ich glaube ich wurde falsch verstanden.
Es ging mir nicht um das Dialog-Icon. Das ist mir egal.
Eigentlich will Ich gar keines.

Es ging mir eigentlich darum, WIE ich einen "eigenen" Message-Dialog erstellen kann, ohne als Message-Dialog eine TForm verwenden zu müssen, wenn ich Komponenten wie Comboboxen verwenden möchte.

Den Sinn und Zweck habe ich bereits in meinem ersten Beitrag erwähnt.
//EDIT ENDE



mfg. chri_ri

[chri_ri]

Also wie es aussieht habe ich jetzt doch eine Lösung für mein Anliegen gefunden.

Es ist zwar nicht ganz so, wie ich es mir zunächst gedacht habe aber eigentlich kommt es auf die gleiche Endlösung heraus.

Fündig bin ich unter folgendem Link geworden: http://www.delphi3000.com/articles/article_1678.asp?SK=


Für alle die speziell mein Anliegen ebenfalls interessiert:

Die Funktion:

Delphi-Quellcode:

function LanguageDlg(ATitle: String): String;
var
  AMsgDialog: TForm;
  AComboBox: TComboBox;
begin
  AMsgDialog := CreateMessageDialog('                                           ', mtCustom, [mbOk]);
  AComboBox := TComboBox.Create(AMsgDialog);
  with AMsgDialog do
  try
    Caption := ATitle;
    Height := 108;
    With AComboBox do
    begin
      Parent := AMsgDialog;
      Top := 8;
      Left := 8;
      Items.Add('Deutsch');
      Items.Add('English');
      ItemIndex := 0;
    end;
    ShowModal;
    result := LowerCase(Copy(AComboBox.Items.Strings[AComboBox.ItemIndex], 1, 2));
  finally
    AComboBox.Free;
    Free;
  end;
end;

Ein Beispielaufruf:

Delphi-Quellcode:

ShowMessage(LanguageDlg('Sprache / Language'));

Hinweis: Die Funktion erwartet als einzigen Parameter den Titel für den Message-Dialog als String und gibt ebenfalls als String die ersten beiden Buchstaben der ausgewählten Sprache in Kleinschreibung zurück (z.B.: English = en).


Kommentar: Speziell meine Lösung ist an einigen Ecken ein wenig "unschön" gelöst und könnte noch ein wenig optimiert und erweitert werden.


//EDIT: Habe Fehler beim Beispielaufruf nachträglich korrigiert.



mfg. chri_ri

[isilive]

Hallo chri-ri!

Schön, dass du die Lösung gefunden hast und auch für andere postest. :cyclops:

Ich habe sie kurz ausprobiert und finde sie recht elegant! :thumb:

Der Aufruf muss aber so lauten: Oder?

Delphi-Quellcode:

begin
  sprache:=languagedlg('Sprache / Language');
end;

[chri_ri]

@isilive: Thx für deine Komplimente!

Und danke, dass du mich auf den Fehler aufmerksam gemacht hast. Das ist wohl irgendwie verschwunden ;)

Und dein Beispiel ist auch korrekt, solange die Variable "sprache" vom Typ String ist.
Das Beispiel von mir anhand der Funktion "ShowMessage()" war auch nur ein recht sinnfreies einfaches Beispiel zum direkten Anzeigen des Ergebnisses.



mfg. chri_ri