Salve a tutti. Cè qualcuno che mi sa aiutare in questo piccolo dilemma, approfitto dell’occasione per indicare che sono un neofita di dell’ambeinte borland/codegear. Sto creando una piccola applicazione Di testo Basata su MDI. Questa applicazione contiene un menu File con le varie sottovoci di menu.
Io Vorrei disabilitare il comando chiudi se non è attivo nessun formChild. Ho inserito un azione chiamata chiudi e al click del mouse del menu chiudi esegue il codice e non da problemi ma la voce di menu rimane abilitata.
Grazie A Tutti, A presto.
procedure TFMain.ChiudiExecute(Sender: TObject);
begin
ActiveMDIChild.Free;
end;
procedure TFMain.ChiudiUpdate(Sender: TObject);
var conta :integer;
begin
conta := MDIChildCount;
if (conta < 0 ) then
FMain.Chiudi1.Enabled := False;
end;