Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизГлючит и всё.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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c