FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
Type  
  TmyControl = Class(TControl)  
  end;  
  
procedure RGB_ColorItem(RadioGroup: TRadioGroup; ItemIndex: Byte; Color:  
Tcolor);  
begin  
 TmyControl(RadioGroup.Controls[ItemIndex]).color := Color;  
end;

1
2
3
4
5
procedure RGB_ColorItem(RadioGroup: TRadioGroup; ItemIndex: Byte; Color:  
Tcolor);  
begin  
  RadioGroup.Buttons[ItemIndex].Color := Color;  
end;

1
2
3
4
5
6
7
8
9
10
11
12
procedure ITEM_Multiligne(RadioGroup: TRadioGroup; ItemIndex: Byte;  
multiligne : boolean);  
var  
  tmpStyle : integer;  
begin  
  tmpStyle := GetWindowLong(Tradiobutton(RadioGroup.Controls[ItemIndex]).Handle, GWL_STYLE); // On récupère le style actuel  
  if multiligne then  
    tmpStyle := tmpStyle or BS_MULTILINE // Bouton multiligne  
  else  
    tmpStyle := tmpStyle and (not BS_MULTILINE); // Bouton une ligne  
  SetWindowLong(Tradiobutton(RadioGroup.Controls[ItemIndex]).Handle, GWL_STYLE, tmpStyle); // On applique le nouveau style  
end;

1
2
3
4
5
6
7
8
9
procedure RGB_Multiligne(RadioGroup: TRadioGroup) ;  
var  
  i: Byte;  
begin  
  for i := 0 to RadioGroup.ControlCount - 1 do  
  begin  
     ITEM_Multiligne(RadioGroup,i,true);  
  end;  
end;