Thema: Delphi Problem mit ComboBox =(

Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#9
  Alt 12. Mär 2003, 19:18
Also, mach mal folgendes:
In einem neuen Projekt, erstellst Du über Menü\Datei\Neu\Formular, drei weitere Formulare, somit hast Du dann 4 insgesamt.
Auf dem ersten Formular, also Form1, setz Du eine ComboBox. Unter Items trägst Du dann z.B. zweites Fenster, dreittes Fenster, viertes Fenster ein und dann gehst Du im Objectinspector auf Eigenschaften und machst ein Doppelklick bei OnChange.
Danach wird Dir eine Prozedur angelegt. Dort fügst Du nun folgenden Code ein, also nur das was zwischen begin und end steht.
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Form2.ShowModal;
    1: Form3.ShowModal;
    2: Form4.ShowModal;
  end;
end;
In der Hauptunit, also Unit1, schau mal da ganz, ganz oben, da steht uses, dort sind ein paar sachen aufgelistet. Dort musst Du die Units eintragen, auf denen Du Zugriff haben willst, also, sieht es in etwa so aus:
Delphi-Quellcode:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, ShellApi, Unit2, Unit3, Unit4;
So, jetzt auf Play drücken, also kompilieren.
Du siehst nun auf dem Hauptformular die ComboBox, immer wenn Du dort ein Eintrag auswählst, dann wird immer das entsprechende Fenster angezeigt.
Und da die Fenster mit ShowModal geööfnet werden, musst Du das aktuelle Fenster erst schliessen, bevor Du wieder zum alten zurück möchtest.

Soweit Klar?

Grüsse, Daniel
  Mit Zitat antworten Zitat