Denna gången har jag i alla fall tänkt till och tittat i hjälpen innan jag ställer frågan ;-)
Jag vill kunna trycka på Return/Enter-tangenten istället för att klicka med musen på en knapp, hur gör jag detta?

Jag har tre knappar som blir "Enabled" efter att ha tryckt på föregående knapp...
Vid ett tryck på knapp 1 blir denna disablad och knapp 2 enablad, vid tryck på knapp 2 blir denna disablad och knapp 3 enablad, vid tryck på knapp 3 blir denna disablad och knapp 1 än en gång enablad.

Går det att förstå vad jag menar?

Så, istället för ett klick vill jag kunna göra detta med att kunna trycka på Enter/Return-tangenten eller rättare sagt jag vill ha båda funktionerna.

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled :=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled :=False;
Button2.Enabled :=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Enabled :=False;
Button3.Enabled :=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Enabled :=False;
Button1.Enabled :=True;
end;

Kanske det blir lite klarare så här!


Anders

Jag har löst problemet med att sätta "Focus" på den nya knappen och i sin tur skriva...

if Key = VK_Return then osså vidare osså vidare



Tack i alla fall
Anders

Det var visst inget STÖRRE problem!


Inte ens det behövdes visst, det räckte att sätta focus på vardera knappen så fungerade det med att trycka på Retur/Enter-tangenten.


procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled :=False;
Button2.Enabled :=True;
Button2.SetFocus;
end;


Kan ju verka onödigt att ställa en fråga här när man till slut själv hittar svaret, men ibland kan det verka alldeles hopplöst.

En annan fråga när man ändå är här...
Vilken av de två ovanstående alternativen är mest rätt?


Lev väl
Anders

Men det är ju bra att du ställer en fråga och sen löser det själv...sen är det ju ett stort plus att du svarar på din fråga så andra kanske kan få hjälp av det!

/bj

Hej
Tycker att du skall kolla på Knappens Property Default
Om du sätter den till True kommer Knappen med
automatik oberoende av Focus reagera på Enter.

mvh
Sven

Tack!

Ännu bättre, detta ger ju ännu mindre kod.
Jag gillar när det blir lite kod och tar tacksamt emot din lösning och svaret på min fråga.


Anders