Focus af form

Tags:    delphi

hey! Har lige et lille spørgsmål, som jeg ikke selv kunne finde svaret på i Delphis hjælpefiler, så håber der er nogen her, der ved noget om det.

Jeg har en ganske normal form, "form1".

Når jeg så trykker på en knap, åbnes en ny form, "form2"

onpaint form2, skal focus flyttes over på form1 igen, men uden at lukke form2.




7 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
hey! Har lige et lille spørgsmål, som jeg ikke selv kunne finde svaret på i Delphis hjælpefiler, så håber der er nogen her, der ved noget om det.

Jeg har en ganske normal form, "form1".

Når jeg så trykker på en knap, åbnes en ny form, "form2"

onpaint form2, skal focus flyttes over på form1 igen, men uden at lukke form2.


Det er meget simpelt påå form2 bruger du bare
Fold kodeboks ind/udKode 


SkypeR That\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'s ME :D

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E



Ville nok bruge Form1.SetFocus; Så bliver evt. kode OnShow ikke eksekveret.




-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------

[Redigeret d. 30/04-05 17:29:57 af Jonas (Decko)]



//I Form1 skriv:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Visible:=True
end;

//I Form2 skriv:
procedure TForm2.FormPaint(Sender: TObject);
begin
Form1.SetFocus
end;

[Redigeret d. 01/05-05 14:20:34 af Thomas Mortensen]



Når man bruger Form1.SetFocus; sker der inget og når man bruger form1.show; bliver form1 godt nok mårke blå igen/markeret, men man kan ikke trykke på nogle af knapperne osv.



Når man bruger Form1.SetFocus; sker der inget og når man bruger form1.show; bliver form1 godt nok mårke blå igen/markeret, men man kan ikke trykke på nogle af knapperne osv.


Hva så med:
Fold kodeboks ind/udKode 


Ved ikke om det hjælper.. :D

SkypeR That\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'s ME :D

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E



Det virker desværre heller ikke.



Tak for svaret, det virkede :)



t