Just nu i M3-nätverket
Jump to content

Aktivt fönster


S T

Recommended Posts

Jag undrar om det är någon som vet hur man löser detta lilla mysterium!

 

Om man har t ex skapatr ett litet program som bara innehåller en knapp och en

edit-ruta, så uppstår nedföljande problem;

 

När jag öppnar ett fönster för första gången är edit1-rutan "aktiv", dvs markören

blinkar i den. När jag jag stänger fönstret genom att trycka på button1, så

stängs fönstret. Problemet jag har är att när jag nästa gång öppnar fönstret

så är inte edit1 aktivt längre utan button1.

 

Så min fråga är: hur kan jag få edit1-rutan att alltid vara aktivt oavsett när och

hur många gånger jag öppnar och stänger fönstret.

 

-Santto-

Link to comment
Share on other sites

Johan Siwer

procedure TForm1.FormCreate(Sender: TObject);

begin

 

edit1.setFocus;

 

end;

 

//så sätts focusen på edit1 när du startar programmet.

Link to comment
Share on other sites

Eller kanske ännu bättre att skriva in koden på OnActivate istället för OnCreate.

Alternativ lägga in den först i koden på Button1Click.

 

procedure TForm1.FormActivate(Sender: TObject);

begin

Edit1.setFocus;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.setFocus;

.

.

.

.

end;

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...