Witam.
Nie wiem czy mi sie uda to wyjaśnić poglądowo tylko przy pomocy słow - spróbuje.
Po któtce:
-
Na komponencie (ControlBar: TControlBar) odpowiednio
-> ToolBarMenu: TToolBar;
-> ToolBarICO: TToolBar; -
(MenuGlowne: TMainMenu) jest umieszczone na komponencie (ToolBarMenu: TToolBar)
-
W (MenuGlowne: TMainMenu) jest pozycja (PasekNarzedzi: TMenuItem) o nazwie 'Pasek narzędzi'.Z możliwością odznaczenia - Checked (ma za zadanie
pokazywanie/ukrywanie tools'a (ToolBarICO: TToolBar) w momencie (Click) odznaczenia/zaznaczenia.
procedure TGlownaForma.PasekNarzedziClick(Sender: TObject);
begin
(Sender as TMenuItem).Checked:= not (Sender as TMenuItem).Checked ;
if paseknarzedzi.Checked=true then
ToolBarICO.Visible:=true
else
ToolBarICO.Visible:=false;
end;
- Pasek Komponenty (ToolBarICO: TToolBar), ma możliwość przeciagania (staje sie wówczas oknem), suwania (po ControlBar: TControlBar), chyba wiecie o co chodzi.
No i tutaj zaczynają sie "kwiatki". Wszystko działa dopóki kiedy uchwyce myszką (ToolBarICO: TToolBar) i przeciągne, powiedzmy gdzieś na forme. Stanie sie
małym oknem z moziwością zamkniećia (x).
Zamykam ją i TERAZ :
chodzi własnie aby w tym momencie automatycznie w menu -> (PasekNarzedzi: TMenuItem)
[cya] [cya] [cya] [cya] ---------------------
|V Pasek narzędzi |
automatycznie znikał (V) - symbol zaznaczenia opcji (Checked).
W jakim zdarzeniu mam to zdefiniowac, kazde zawodzi dla komponentu (ToolBarICO: TToolBar). Chociażby w procedurze:
procedure TGlownaForma.ToolBarICOExit(Sender: TObject);
Zadanie trywialne tylko ...???
Gdzie zdefiniować? Skorzystać z construktora? jak? Napisać procedure.
Dajcie jakieś sugestie.
MenuGlowne: TMainMenu;
PasekNarzedzi: TMenuItem;
ControlBar: TControlBar;
ToolBarMenu: TToolBar;
ToolBarICO: TToolBar;
THX