[FMX] wie Button.Click aufrufen?

[himitsu]

Moin Moin,

was ist bitte der offizielle Weg, ein Button.Click im FMX auszulösen?
Das ist ja protected, als wenn jemand nicht wöllte, dass man es macht. (nicht ausversehn vergessen, denn auch andere Methoden sind protected, selbst in anderen Komponenten)

* In der VCL ist auch Vieles im TCustomIrgendwas noch protected, aber wird TIrgendwas dann public oder gar published. (nur hier nicht)
* ja, ich kann Casten
* könnte anderes Aufrufen, was wiederum Click aufruft, aber die sind auch ALLE protected
* SendMessage/PostMessage/Perfom fällt auch aus
* eine Action anhängen und da ein Excecute
* einen Mausklick auslösen/simmulieren (auf der echten Maus, weil auch MouseDown und Co. ebenfalls protected sind)
* manuell ganz persönlich draufklicken
* oder direkt die OnClick-Methode aufrufen
* ...

Kann doch nicht sein, dass bisher nur wenige sowas machen wollten?
Aber bin wenigstens nicht der Einzige.
https://stackoverflow.com/questions/...-in-firemonkey

[Cypheros]

Das ist einer der Gründe warum ich FMX ungern einsetze. Es fühlt sich einfach so fremd an. Viele Selbstverständlichkeiten beim Arbeiten mit VCL, sind unter FMX unnötig kompliziert oder wenig nicht intuitiv.

Allerdings sollte man auch keine umfangreichen Prozeduren in Events packen, sondern dazu eine eigene Prozedur schreiben, die dann über den Event (OnClick) oder eben einer anderen Routine aufgerufen werden kann. Ist vielleicht eine erzieherische Maßnahme von Emba

[jaenicke]

Zitat von himitsu:

was ist bitte der offizielle Weg, ein Button.Click im FMX auszulösen?
Das ist ja protected, als wenn jemand nicht wöllte, dass man es macht.

Da das kein sauberer Code ist, finde ich es schon gut, dass es diesen Weg nicht gibt. Ich finde es im Gegenteil äußerst fragwürdig, dass es das in der VCL gibt.

Dieses ganze Klammern von zu viel Code direkt an GUI-Elemente ist leider ein negativer Effekt der WYSIWYG-IDE. Sauber ist, wenn man im Klick-Event eine sauber benannte Methode aufruft, die auch aussagt, was dort passiert. Und noch besser ist, wenn diese gar nicht in der gleichen Unit liegt, bzw. zumindest der Logik-Teil außerhalb der GUI-Logik woanders liegt. Und die ruft man dann überall auf, wo das passieren soll.

Wenn man diese Trennung von GUI und Logik sauber macht, vermisst man auch nicht Methoden wie Click.

[himitsu]

Dort ist nicht viel drin, aber zu Debugzwecken wollte ich das vorhin nun einfach beim Start automatisch ausgelöst haben.

quasi

Delphi-Quellcode:

procedure TFormMain.FormShow(Sender: TObject);
begin
  if IsDebuggerPresent then
    ButtonStart.Click;
end;

und nun ist das einfach ButtonStartClick(nil); was ich aber noch schlimmer finde, als das oben.



Das ist aktuell ein kleines Testprojekt, was nur aus einem Grid, einem Button und zwei drei Prozeduren plus dem OnShow besteht.

[jaenicke]

Zitat von himitsu:

und nun ist das einfach ButtonStartClick(nil); was ich aber noch schlimmer finde, als das oben.

Ist es ja auch, aber es geht mit kaum mehr Aufwand ja auch sauber, Testprojekt hin oder her:

Delphi-Quellcode:

procedure TFormMain.StartRunningCalculation;
begin

end;

procedure TFormMain.ButtonStartClick(Sender: TObject);
begin
  StartRunningCalculation;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  if IsDebuggerPresent then
    StartRunningCalculation;
end;