Hallo zusammen,
an meinem DBGrid hängt eine DataSource. Dort nutze ich das Ereignis onDataChange um in einem anderen Fenster eine Datei anzuzeigen. Dadurch verliert das DBGrid aber den Focus.
Über folgende Funktion versuche ich nämlcihdie gerade focussierte DBGrid zu ermitteln:
Delphi-Quellcode:
function Focussierte_Komponente_ermitteln(Form:TForm):TQuery;
var
I: Integer;
DBGrid: TDBGrid;
begin
Result := nil;
For I := 0 to Form.ComponentCount - 1 do
begin
if Form.Components[I] is TDBGrid then
begin
DBGrid := TDBGrid(Form.FindComponent(Form.Components[I].Name));
If (DBGrid.Focused) then
begin
Result := ((DBGrid.DataSource).DataSet as TQuery);
end;
end;
end;
end;
Ich habe nun schon mit GotoBookmark versucht den Fokus wieder herzustellen. Schaffe das aber nur durch manuelles klicken mit der Maus auf die Zeile in der DBGrid.
Was mache ich falsch ?
Gruss
Holger