Finde hvad der er blevet sat SetFocus

form.activecontrol

Kan se dit point, men forklar venligst mere ?

Pft
Carsten

Hej Carsten

Nu ved jeg jo ikke hvad det er du vil, men du kan f.eks. udføre metoder tilhørende den Control der har focus:

if (self.ActiveControl is tButton)  then
  tButton(self.ActiveControl).Click;

eller anvende properties:

if (self.ActiveControl is tEdit)  then
  label2.Caption := tEdit(self.ActiveControl).Text ;

self er den aktuelle form-instans
mvh.

Forstår ikke at bruge ovenstående, men jeg har en process som kører hele tiden, og den skal gøre forskellige ting alt afhængig af om man er i den ene eller anden StrindGrid, så det jeg har brug for at vide, er om focus er på StringGrid 1 eller 2 f.eks.

Så kan du vel spørge

if Stringgrid1.focused then

Det har du ret i, det er den nemme løsning, men vil gerne undgå dette, idet man så skal undersøge alle de komponenter der er på formen, så dit første forslag lignende noget af det jeg havde i tankerne, så hvis du kan hjælpe med det, er det super

Hvad med at anvende TAG ?

f.eks:
case tComponent(activecontrol).Tag of
  1:;
  2:;
  else;

Så skal du bare sætte tag-get passende på dine komponenter.

Det ligner lidt af det med at checke alle komponenter som for  focused sand, håbede der var et nemt svar, som kunne give mig navnet på komponenten som er focused

Nej, du anvender den der har fokus, og opbygger koden struktureret og overskuelig .... ?

du kan også anvende
string1 := tComponent(activecontrol).ClassName  eller
string1 := tComponent(activecontrol).Name ;

så har du klassen hhv navnet  ? ? ? ?

<a_nor>
Dine svar er meget rigtige, ville dog gerne høre om der er andre der har gode forslag?

Hvad er der galt med a_nor's forslag?

Eksempel:
2 Edits og en Button paa en form:

procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
  if (self.ActiveControl.Name = 'Edit1') then
    ShowMessage('edit1');
  if (self.ActiveControl.Name = 'Edit2') then
    ShowMessage('edit2');
end;

Da der ikke er kommet nogen andre gode forslag, synes jeg du skal lægge et svar, så du a_nor kan få dine point

Smid en timer på form, dobbeltklik på den for at oprette event, indsæt kode: - men det er det samme som allerede er blevet sagt...