Denna gången har jag i alla fall tänkt till och tittat i hjälpen innan jag ställer frågan ;-) Jag har löst problemet med att sätta "Focus" på den nya knappen och i sin tur skriva... Det var visst inget STÖRRE problem! 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! Hej Tack!Ett lite större problem - Return...
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!
AndersSv: Ett lite större problem - Return...
if Key = VK_Return then osså vidare osså vidare
Tack i alla fall
AndersSv: Ett lite större problem - Return (som blev ett litet 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
AndersSv: Ett lite större problem - Return (som blev ett litet problem)
/bjSv: Ett lite större problem - Return (som blev ett litet problem)
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
SvenSv: Ett lite större problem - Return (som blev ett litet problem)
Ä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