Глючит и всё.radiogroup

← →
denisww © (2002-09-19 11:49) [0]

суть :
хочу чтобы radiogroup формировался динамически и имел всегда значение+ значение можно выставит мышкой

если торкнуть радиогрупп- глюк сразу
подскажите где ошибка
непопадать в бесконечный цыкл пробовал и спомощь флага
ошибка таже

denisdenis@rambler.ru

unit Unit1;
{$J+}
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls, Grids, ToolWin, Buttons, IniFiles;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabCalc: TTabSheet;
StatusBar1: TStatusBar;
Splitter1: TSplitter;
Panel1: TPanel;
Panel3: TPanel;
GroupBox3: TGroupBox;
RadioGroup1: TRadioGroup;
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroupNilClick(Sender: TObject);//Мой пустой обработчие
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

Const
FixStr:array[0..4] of String[10]=("1","2","3","4","5");

implementation

{$R *.dfm}

Procedure ChangeCol;
Label L;
Var I:Integer;S:String[10];
Begin With Form1 Do Begin
RadioGroup1.OnClick:=RadioGroupNilClick;

If RadioGroup1.ItemIndex=-1 Then S:="" Else S:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];

RadioGroup1.Items.Clear;
RadioGroup1.Items.Add(FixStr[0]);
RadioGroup1.Items.Add(FixStr[1]);
RadioGroup1.Items.Add(FixStr[2]);
RadioGroup1.Items.Add(FixStr[3]);
RadioGroup1.Items.Add(FixStr[4]);
RadioGroup1.Columns:=RadioGroup1.Items.Count;

For I:=0 to RadioGroup1.Items.Count-1 Do If RadioGroup1.Items.Strings[i]=S Then Break;
RadioGroup1.ItemIndex:=i;

RadioGroup1.OnClick:=RadioGroup1Click;
End End;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
ChangeCol;
end;

procedure TForm1.RadioGroupNilClick(Sender: TObject);
begin
;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ChangeCol;
end;

end.

← →
ЮЮ © (2002-09-19 12:16) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure SetNfromM(RadioGroup:TRadioGroup;N,M:integer);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetNfromM(RadioGroup: TRadioGroup; N, M: integer);
var i:integer;
begin
//создает RadioGroup с M значениями и выделенным N
RadioGroup.Items.Clear;
for i:=1 to M do RadioGroup.Items.Add(IntToStr(i));
RadioGroup.ItemIndex:=N-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//создает RadioGroup с 5 значениями и выделенным 3
SetNfromM(RadioGroup1,3,5);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
//создает RadioGroup с 4 значениями и выделенным 2
SetNfromM(RadioGroup1,2,4);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//переключаем ItemIndex
if RadioGroup1.ItemIndex=RadioGroup1.Items.Count-1
then RadioGroup1.ItemIndex:=0
else RadioGroup1.ItemIndex:=RadioGroup1.ItemIndex+1;
end;

end.

Глючит и всё.radiogroup Найти похожие ветки