was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

47 Visitors Online


 
...auf die Radiobuttons einer TRadioGroup zugreifen?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (13):  
     




{
  Die Eigenschaft Controls führt alle untergeordneten Komponenten eines Steuerelements
  (Hier z.B TRadioGroup) auf.
  Controls ist hilfreich, wenn auf die untergeordneten Steuerelemente mit einer Zahl und
  nicht mit ihrem Namen Bezug genommen werden soll.
  So kann Controls beispielsweise verwendet werden, um in einer TRadioGroup Eigenschaften
  der RadioButtons zu manipulieren (Hints anzeigen, verstecken,...)
}

{
  The property Controls lists all child controls of a Control.(Here a TRadioGroup)
  Controls is an array of all the child controls.
  The Controls property is convenient for referring to the children of a control
  by number rather than name.
  For example, Controls may be used to change properties of the Radiobuttons in a
  TRadioGroup (showing hints, hiding items,...)
}


{1. *******************************************************}
// Deactivates/activates a specified item of a TRadioGroup
// Deaktiviert/aktiviert in einer TRadioGroup ein bestimmtes Item

procedure RGB_EnableItem(RadioGroup: TRadioGroup; ItemIndex: Byte; bEnabled: Boolean);
begin
  
RadioGroup.Controls[ItemIndex].Enabled := bEnabled;
end;

// Example: Deactivates the 2. Item  (Index starts at 0)
// Beispiel: 2. Item deaktivieren (Index beginnt bei 0)

procedure TForm1.Button1Click(Sender: TObject);
begin
  
RGB_EnableItem(RadioGroup1, 1, False);
end;


{2. *******************************************************}
// Hides/Shows a specified item of a TRadioGroup
// Versteckt oder zeigt ein bestimmtes Item in einer TRadioGroup an.
procedure RGB_ShowItem(RadioGroup: TRadioGroup; ItemIndex: Byte; bVisible: Boolean);
begin
  
RadioGroup.Controls[ItemIndex].Visible := bVisible;
end;

// Example: Hides the 2. Item  (Index starts at 0)
// Beispiel: 2. Item verstecken (Index beginnt bei 0)
procedure TForm1.Button2Click(Sender: TObject);
begin
  
RGB_ShowItem(RadioGroup1, 1, False);
end;


{3. *******************************************************}
// Show Hints for TRadioGroup items
// Hints für die Items in der TRadioGroup anzeigen
procedure TForm1.Button3Click(Sender: TObject);
var
  
i: Byte;
begin
  for 
i := 0 to RadioGroup1.ControlCount - 1 do
  begin
    
RadioGroup1.Controls[i].ShowHint := True;
    RadioGroup1.Controls[i].Hint := (Radiogroup1.Controls[i] as TRadiobutton).Caption;
  end;
end;

{4. *******************************************************}
// Focus a specified Radiobutton in a TRadioGroup
// Ein bestimmter Radiobutton einer TRadioGroup fokussieren
procedure RGB_FocusItem(RadioGroup: TRadioGroup; ItemIndex: Byte);
var
  
RadiogroupClick: TNotifyEvent;
begin
  if 
ItemIndex >= 0 then
  begin
    
RadioGroup.OnClick := nil;
    (RadioGroup.Controls[1] as TRadiobutton).SetFocus;
    RadioGroup.OnClick := RadiogroupClick;
  end;
end;

// Example: Focus the 2. Radiobutton
// Beispiel: Den 2. Radiobutton fokussieren
procedure TForm1.Button4Click(Sender: TObject);
begin
  
RGB_FocusItem(RadioGroup1, 1);
end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners