Button einer anderen unit Enabled auf false setzen

[Ralf Kaiser]

Hallo,

erstmal: Warum nennst du eine Variable die hinterher wohl einen TButton enthalten soll SenderForm?

Wenn ich das richtig verstehe dann soll wenn der Aufruf des zweiten Formulars mit OK beendet wurde der Button auf "Enabled = false" gesetzt werden, stimmts?

Warum dann nicht einfach so:

Delphi-Quellcode:

procedure TForm1.Button(Sender: TObject);
var aButton: TButton;
begin
  if Sender is TButton then begin
    aButton := TButton(sender); 
    if form2.ShowModal = mrOK then begin
      aButton.Enabled := false;
    end;
  end;
end;

Da "ShowModal" das Ergebnis liefert und auch nicht ohne Ergebnis zurückkehrt ist es nicht nötig den Button aus From2 heraus zu manipulieren.

Ciao,
Ralf