warum kennt er activcontrol nicht

[markus lemcke]

tag,

warum kennt er bei folgeder prozedur ActiveControl nicht?

procedure bearbeiten_wiederherstellen(menue:tmainmenu);
begin
if (( ActiveControl ) is TCustomEdit )
then TEdit( ActiveControl).perform(EM_UNDO, 0, 0);
menue.rckgngig1.enabled := false;
menue.rckgngig1.caption := '&Rückgängig nicht möglich';
menue.wiederherstellen1.enabled := true;
menue.wiederherstellen1.caption := '&Wiederherstellen möglich';

end;


die unit forms ist in der uses-klausel drin!

geht wieder um Delphi 1

gruß

markus

[markus lemcke]

das problem mit activecontrol habe ich so:

<pre>

procedure bearbeiten_wiederherstellen(menue:tmainmenu;Formul ar:tform);
begin
if (( Formular.ActiveControl ) is TCustomEdit ) then
TEdit( Formular.ActiveControl).perform(EM_UNDO, 0, 0);
Formular.menue.rckgngig1.enabled := false;
Formular.menue.rckgngig1.caption := '&Rückgängig nicht möglich';
Formular.menue.wiederherstellen1.enabled := true;
Formular.menue.wiederherstellen1.caption := '&Wiederherstellen möglich';
end;

</pre>
gelöst!
nun kennt er aber EM_UNDO nicht, obwohl die units wintypes und winprocs eingebunden sind!
was hat das nun zu bedeuten

[markus lemcke]

ohje!
das mit mainmenu scheint auch falsch zu sein!

wer kann mir verraten wie es <b>richtig</b> geht