Delphi:random text/label

[REHIT]

имам един бутон и един лабел

искам като натисна бутона да излиза някакъв си текст.(текста да е зададен от мен).

при повторно натискане да излиза друг текст (текста да е зададен от мен).

[orpamarosa]

Ще са ти необходими следните компоненти, разположени върху Form1:

a)обект:EditBox, име на обекта EditBox1;

б)обект:Button, име на обекта Button1;

в)обект:label, име на обекта label1.

Двоен клик върху бутона.

Пишеш(между "begin" и "end;":

"label1.caption:=edit1.text;".

При компилиране на програмата, след натискане на Button1, ще се изпише текста, който преди това си въвел във Edit1.

[REHIT]

искам да стаа без edit1 никакви други компоненти освен бутон и лабел.и не да съм въвел текста когато вече съм компилирал програмата ами от кода.

[SAGE]

unit Unit2;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm2 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form2: TForm2;



implementation



{$R *.DFM}





procedure TForm2.FormCreate(Sender: TObject);

begin

Label1.Visible:=False;

end;



procedure TForm2.Button1Click(Sender: TObject);

begin

case Button1.Tag of

0:Label1.Caption:='първи текст';

1:Label1.Caption:='втори текст';

end;//case

Label1.Visible:=True;

Button1.Tag:=1;

end;



end.

[REHIT]

sage ти винаги решаваш нещата мерси мноо.