Pro Radiobutton ein Panel

[KHW]

Guten Tag,

ich habe ein Problem, und zwar habe ich einige verschiedenen Inhalte die ich je nach Wahl des Nutzers anzeigen lassen möchte.
Mein lösungsansatz ist einige Panels zu erstellen, die diese Inhalte "tragen" und für jedes Panel ein Radiobutton zuzuordnen, um das jeweilige Panel anzuzeigen.
Abgesehen von der Tatsache, dass ich glaube dass dieser Weg ziemlich umständlich ist ( anderes übersteigt mein derzeitiges Können als Anfänger)habe ich außerdem ein Problem den Plan umzusetzen.

Delphi-Quellcode:

if Radiobutton1.checked then panelbewegung.visible := true
      else panelbewegung.visible := false ;

Dieser Code soll , wie ihr euch sicher denken könnt, bewirken dass man das Panel sieht wenn der entsprechende RB ausgewählt ist, und nicht sichtbar ist , wenn er nicht ausgewählt ist.
Es wird zwar angezeigt wenn ich den RB anklick', aber ich kann das panel nicht wieder verschwinden lassen.

Ein komplett neuer Weg(also nicht mit Panels und RBs) mein Problem zu lösen wäre mir auch sehr recht.

Danke im Vorraus.

:-D:-D

[DeddyH]

Hallo und Willkommen in der DP :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.:oops:

Danke.

[hans ditter]

Hey und herzlich Willkommen in der DP :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... :oops:

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.

[yörsch]

Wir haben ne ganze menge solcher Fubktionalität..
also
Anwenderauswahl dann Zeig was anderes an...
Die Anwender auswahl ist da mal ein RadioButton, eine ein bestimmter Zahlen Wert...

Wenn immer es möglich ist, hab wir das was angezeigt werden soll, auf Frames drauf geschoben.
Das mit den Frames hat den Vorteil, das das ganze Kapseln kann und das Frame gut wiederverwenden kann

Jetzt kann ich entscheiden ob und wo und wie das ganze Angezeigt werden. #
Im Fenster , als Teil in einer TNodeBook, TPageControl, etc.

Oder was wir auch machen : Oberflächen voll Dynamich aufbauen... Das ist aber etwas zu aufändig für kleinere Sachen..

Was die aber keine abnehmen kann ist eine wie auch immer gearetetes Maping

was heißt:
Bedingung erfüllt = Erzeuge / Zeige an

[KHW]

Ich hab herausgefundenm dass ich auf die Pagecntrol keine Komponente setzen kann (button, label,edit)
oder ich mach was falsch...somit nutzt mir dieses nichts :( :oops: