procedure TForm37.SpeedButton5Click(Sender: TObject);
begin
// jak odczytać że jestem aktualnie w Form37.SpeedButton5
if mmHas (.......) then Form23.show;
end;
Zabawa typu name+SpeedButon5.name jest mało interesująca
Czy da się te informacje wyciągnąć z Sender
Wtedy wywołanie by wyglądało tak
if mmHas ( Sender ) then Form23.show;
// sprawdzanie czy dany login ma uprawnienia do danego fragmentu programu
Pozdrawiam
Janusz
dodanie znaczników <code class="delphi"> - fp