zanndr
21.02.2011, 06:17
С дельфи знаком немного , поэтому вопрос многим покажется глупым но все же. Как сделать , что бы при нажатии на кнопку , вылезали разные сообщения? Если один раз написать ShowMessage('blablabla'); то всегда вылазит одно и тоже сообщение , а мне нужно , что бы они выводились по порядку , например 1 раз нажал на кнопку - сообщение1 , второй раз нажал на кнопку - сообщение2 и т.д.
Пытался сделать так
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin Button1.Caption := 'сообщение1'; Button1.Tag := 1; end;
1 : begin Button1.Caption := 'сообщение2'; Button1.Tag := 2; end;
2 : begin Button1.Caption := 'сообщение3'; Button1.Tag := 3; end;
3 : begin Button1.Caption := 'сообщение4'; Button1.Tag := 0; end;
end;
Но оно меняет сообщение на кнопке , а не то , которое появляется по нажатию на нее.
Сделал так
procedure TForm1.Button1Click(Sender: TObject);
var
post : integer;
begin
post := random(4);
case post of
0: ShowMessage('1');
1: ShowMessage('2');
2: ShowMessage('3');
3: ShowMessage('4');
end;
Оно работает , но можно ли другими способами сделать тоже самое?
Пытался сделать так
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin Button1.Caption := 'сообщение1'; Button1.Tag := 1; end;
1 : begin Button1.Caption := 'сообщение2'; Button1.Tag := 2; end;
2 : begin Button1.Caption := 'сообщение3'; Button1.Tag := 3; end;
3 : begin Button1.Caption := 'сообщение4'; Button1.Tag := 0; end;
end;
Но оно меняет сообщение на кнопке , а не то , которое появляется по нажатию на нее.
Сделал так
procedure TForm1.Button1Click(Sender: TObject);
var
post : integer;
begin
post := random(4);
case post of
0: ShowMessage('1');
1: ShowMessage('2');
2: ShowMessage('3');
3: ShowMessage('4');
end;
Оно работает , но можно ли другими способами сделать тоже самое?