PGraf = ^TGraf;
TGraf = record
Obiekt : TCustomControl;
GFalse: PGraf;
end;
var
Next : PGraf;
root :PGraf;
procedure TMainForm.StepClick(Sender: TObject);
begin
if stepG = false then
begin
stepG:=true;
next:=root;
next.Obiekt.SetFocus;
//lub to TObjSekw(next^.Obiekt).MouseDown(mbLeft,[ssLeft],2,2);
end
else
begin
next := next^.GFalse;
next.Obiekt.SetFocus; //tu błąd
// lub TObjSekw(next^.Obiekt).MouseDown(mbLeft,[ssLeft],2,2);
end;
Po pierwszym kliknięciu wszystko jest w porządku ... pierwszy obiekt
dostaje Focusa jednak po drugim kliknięciu wywala błąd EAV przy
SetFocus drugim.
Dodatkowo jak wywale ifa i else to wykonuje się pierwszy i drugi
SetFocus. Prosze o pomoc w rozwiązaniu tego problemu.