Sprawdzenie "kto" otworzył formę

0

Witam.

Problem zapewne banalny ale nie mogę nic znaleźć ani wykombinować.
Mam dwie formy.
Na pierwszej trzy przyciski które otwierają (Form2.Show) drugą formę.
I teraz w zależności od tego który przycisk zostanie kliknięty forma 2 ma przybierać inne właściwości.
W jaki sposób (już po "stronie" Form2) sprawdzić który przycisk ją otworzył ?

Próbowałem coś w stylu:

Showmessage(TButton(Sender).Caption);

ale to nie zdaje egzaminu...

2

W sposób przyzwoity nie da się.
Dodaj składową do TForm2

private
...
     Button:TButton;

Dodaj metodę do TForm2

public procedure TForm2.ShowParam(Button:TButton);
begin 
  Self.Button:=Button;
  Caption:=Button.Caption;
  Show;
end;

Wywołuj z jednego przycisku: Form2.ShowParam(Button1);
z drugiego: Form2.ShowParam(Button2);

0

Pierwszy post @_13th_Dragon był jak najbardziej zrozumiały :).
Rozwiązałem to tak:
W Form2 dodałem to co podałeś ( w wersji z kind) czyli:

private
...
    Kind:Integer; 
procedure TForm2.ShowParam(Kind:Integer);
  begin
       Self.Kind:=Kind;
       Show;
  end;  

Natomiast do buttonów dodałem tagi i Form2 wywołuję wspólną procedurą Form2.ShowParam(TButton(Sender).Tag)
Wielkie dziękuję!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0