Действительно, лучше бы я этого не знал
модальная форма одна надеюсь?
если одна, то можно так:
Цитата:
var
wqeqweqwe: TMagicForm2 = nil;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if wqeqweqwe = nil then
wqeqweqwe := TMagicForm2.Create(nil);
wqeqweqwe.ShowModal;
end;
|