Combox, Checkbox, usw. selektiert ????

[Aike]

Du kannst auch, wenn du die Komponenten entsprechend benannt hast, erstmal schauen, wie die Komponente heißt und dann auf den Komp.typ schließen.

Delphi-Quellcode:

function SiS(s,SubStr:string):boolean; //StringInString prüft, ob ein String in einem längeren vorkommt
begin
  result:=false;
  if Pos(SubStr,s)>0 then
    result:=true;
end;

function TypBestimmen(AComp:TComponent):string;
var s:string;
begin
  s:=AComp.Name;
  if SiS('edit',s) then result:='Editfeld'
  else if SiS('Checkbox',s) then result:='Checkbox'
  else if ...
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(TypBestimmen(Editfeld{ as TComponent}));
end;

Was ich aber machen würde, ist, dass du eine globale Variable namens "geaendert" nimmst und sie auf true setzt, wenn der Anwender etwas irgendwo rein schreibt.