Aktivt fönster

[S T]

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-

[Johan Siwer]

procedure TForm1.FormCreate(Sender: TObject);

begin

 

edit1.setFocus;

 

end;

 

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

[B Wisser]

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;

 

 

[S T]

Tackar så mycket för hjälpen =)

 

-Santto-