Pro Radiobutton ein Panel

[DeddyH]

Hallo und Willkommen in der DP ,

Dein Ansatz mit Panels kann zwar funktionieren, aber Du kannst Dir auch einmal die Komponente TPageControl ansehen. Dessen einzelne Seiten (vom Typ TTabSheet) kannst Du auch anzeigen oder eben nicht. Wenn Du TabVisible der einzelnen TabSheets auf false setzt, dann kannst Du etwas ähnliches bauen wie die allgemein bekannten Assistenten.

Zu dem Problem mit dem RadioButton: nimm einfach eine RadioGroup und definiere dort die RadioButtons über deren Items-Eigenschaft. Im OnChange der RadioGroup kannst Du dann über den ItemIndex abfragen, welcher RadioButton gerade ausgewählt ist.

[edit] Ich hab da mal was vorbereitet (siehe Anhang) [/edit]

[KHW]

Die Lösung mit dem TPageControl scheint mir sehr sympathisch , aber ich würde dich bitten mir das noch einmal detaillierter zu erklären, wie ich mein ziel erreichen kann.

Danke.

[hans ditter]

Hey und herzlich Willkommen in der DP !

Zu dem PageControl. Du ziehst die Komponente PageControl auf deine Form, stellst in den Eigenschaften des PageControl TabVisible auf false und fügst beliebig viele TabSheets hinzu (ebenfalls machbar über die Einstellungen). Auf den Tabsheets kannst du dann Komponenten platzieren.

Wenn dann ein RadioButton angeklickt wirt, kannst du über dein PageControl das entsprechende TabSheet anzeigen lassen. Den genauen Befehl weiß ich grad nicht aus dem Kopf, lässt sich aber schnell herausfinden...

Alles andere siehst du, wenn du auf F9 drückst!

Viel Glück und Spaß!
hans ditter

[KHW]

Das klingt machbar , vielen vielen Dank.

Mach mich gleich mal dran

[hathor]

Delphi-Quellcode:

if RadioButton1.checked:=true then PageControl1.ActivePage:= TabSheet1;
if RadioButton2.checked:=true then PageControl1.ActivePage:= TabSheet2;
usw.

[Darlo]

Nur mal aus dem Kopf raus:

Code:

for i := 1 to anzahlTabSheet do
  if TRadioButton(FindComponent('RadioButton'+inttostr(i))).checked then
    begin
      pageControl1.ActivePage := TTabSheet(FindComponent('TabSheet'+inttostr(i)));
      break;
    end;

[DeddyH]

Schau doch einfach in mein Beispielprojekt, da steht doch kaum Code drin. Entscheidend ist die Methode

Delphi-Quellcode:

procedure TfrmMain.rgChoosePageClick(Sender: TObject);
begin
  pcPages.ActivePageIndex := rgChoosePage.ItemIndex;
end;

Dabei ist rgChoosePage die Radiogroup und pcPages das PageControl.