Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизDataModule премущества и недостатки, если они есть конечно??? Найти похожие ветки
← →
Фэ (2002-03-01 13:33) [20]Можно делать так
procedure TfmMain.MenuClick(Sender: TObject);
var
cname: string;
begin
cname := (Sender as TComponent).Name;
// имеется в виду что Child-форму можно вызвать или по пункту
// меню popUsers или по кнопке btnUsers
if (cname = "popUsers") or (cname = "btnUsers") then begin
fmUsers := TfmUsers.Create(Self);
fmUsers.Visible := True;
fmUsers.SetFocus;
popUsers.Enabled := False; // запрещается пункт меню
btnUsers.Enabled := False; // запрещается кнопка
end;
//...
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c