Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Хочу сделать чтотото типа панели открытых окон...   Найти похожие ветки 

 
TohaNik ©   (2004-07-02 18:15) [0]

На OnShow формы создаю кнопки на ToolBar главной формы с Name по
по классу формы которая креатится ну free кнопкам на onClose.
А вот что написать в  событии для кнопок чтоб сделать активной форму которой соответствует нажимаемая кнопка.
Или это по-другому делается.


 
TUser ©   (2004-07-02 18:32) [1]

SetFocus, SetForegroundWindow


 
akvilon ©   (2004-07-02 19:10) [2]

SetWindow
SetWindowPos


 
TohaNik ©   (2004-07-02 19:24) [3]

Вот пишу на MDI форме
procedure TfmNaryads.FormShow(Sender: TObject);
begin
 MainForm.ShowFmButton(Caption,"T"+Name);
end;

procedure TfmNaryads.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 MainForm.FreeFmButton("T"+Name);
end;
В гл. форме

procedure TMainForm.ShowFmButton(fmCaption: TCaption; fmName: TComponentName);
var
 fmBtn: TSpeedButton;
begin
 fmBtn := TSpeedButton.Create(Self);
 fmBtn.Parent := ToolBar1;
 fmBtn.Name := fmName;
 fmBtn.Caption := fmCaption;
 fmBtn.Hint := fmCaption;
 fmBtn.Width := 120;
 fmBtn.OnClick := OnClickFmButton;
end;

procedure TMainForm.FreeFmButton(fmName: TComponentName);
var
 ToolControl : TComponent;
begin
 ToolControl := FindComponent(fmName);
 if ToolControl.ClassType = TSpeedButton
   then ToolControl.Free;
end;

procedure TMainForm.OnClickFmButton( Sender : TObject );
var
 FormName : String;
 fmNameL : Integer;
 ToForm : TComponent;
begin
 fmNameL := Length(TControl(Sender).Name)-1;
 FormName := Copy(TControl(Sender).Name,2,fmNameL);
 ToForm := Application.FindComponent(FormName);
 if ToForm.ClassName = TControl(Sender).Name then
   begin
     ShowMessage("FormClass= "+ToForm.ClassName);
     а здесь хочу сделать активной найденую форму
   end
end

ЗЫ: В АПИ ноль



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-1088353802
Дилетант
2004-06-27 20:30
2004.07.18
Фильтры в таблицах


3-1087557086
bSava
2004-06-18 15:11
2004.07.18
Подскажите как узнать подключенных пользователей?!


9-1080636166
Goida
2004-03-30 12:42
2004.07.18
Как показать скорость?


4-1086376641
k@rt
2004-06-04 23:17
2004.07.18
Как обновить реестр?


6-1084975622
-=zek=-
2004-05-19 18:07
2004.07.18
Как принять Stream