SPG om delphi 6

www.udvikleren.dk

Nogle af de installations programmer skifter bare billede/form og knap uden man ser det.

Hvis du vil skifte text på en knap ved at trykke på den kan du gøre sådan
her

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption := 'Ny tekst';
end;

Hvis du vil have den skal gøre noget andet når du trykker næste gang kan du lave en tæller og ud fra tælleren værdi gøre hvad du nu vil.

Stoney

PS.

maximum>>  Hvorfor altid det standard svar.

Kom med noget konstruktivt i stedet for lobby arbejde.

hvordan laver man er tæller stoney

det er det med tælleren jeg gerne vil vide det andet ved jeg!!!

tilføj counter : integer; under public

procedure TForm1.Button1Click(Sender: TObject);

begin
counter := counter + 1;
if counter=1 then
form1.Color := clskyblue;
if counter=2 then
form1.Color := clblue;

end;

Stoney

takker stoney