Wpadłem póki co na to, że można zmienić władność Tag trzeciej formatki. Można też w sekcji public
umieścić jakąś zmienną i poprzez pozostałe formatki nadawać jej odpowiednią wartośc. Jednak skoro
i tak masz Form3 w sekcjach uses poprzednich modułów, to skorzystaj z jej zdefiniowanej własności:
Pierwsza formatka:
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Tag := 1;
Form3.ShowModal;
end;
Druga formatka:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.Tag := 2;
Form3.ShowModal;
end;
Zdarzenie OnShow dla trzeciej formatki:
procedure TForm3.FormShow(Sender: TObject);
begin
case Tag of
1 : Caption := 'Wywołanie z pierwszej formatki';
2 : Caption := 'Wywołanie z drugiej formatki';
else
Caption := 'Wywolanie z innej formatki'
end;
end;
Wiedziałem, że ktoś mnie uprzedzi :) Tym razem Oleksy_Adam, ale dzięki temu dev246 - ma więcej
rozwiązań do wzięcia pod uwagę. Chociaż użycie zdefiniowanej zmiennej w Form3 jest chyba najlepsze.