[ preki @ 02.01.2002. 21:56 ] @
e, drustvo jedno pitanje (kao i svi ostali) :o))
imam sledeci problem. Kreiram meni (menu bar) i imam i neki status bar na dnu koji naravno podrzava ispis texta (cisto da opisem radne uslove :o)) kako da kada misem dodjem na neku komponentu menija (u vreme izvrsavanja programa) da ispisem dole u status bar-u neki text. Recimo kada samo otvorim File, pa dodjem na Exit, on da ispise dole ("Exits the program"). Nikako da nadjem foru, posto na meniju nema Property OnMouseOver. Aj, kome je jasno sta hocu nek' svrljne , kome nije isto, pa cu da objasnim
Caos
[ Gojko Vujovic @ 03.01.2002. 03:04 ] @
Dodaj na formu mainmenu i statusbar. Definisi stavke menija i njihove hintove. Promeni vrstu statusbar-a u simplebar ako hoces da koristis simpletext za ispis hint-a.

U OnCreate event forme dodaj ovo:

Application.OnHint := mojhint;

U public dodaj ovo:

procedure mojhint(Sender: TObject);

U implementation dodaj ovo:

procedure TForm1.mojhint(Sender: TObject);
begin
StatusBar1.SimpleText := Application.Hint;
end;


Definisi hint neke stavke u meniju (preko property editora) i isprobaj kako radi.
[ preki @ 03.01.2002. 21:25 ] @
Setio sam se pre nego sto sam procitao post, hvala u svakom slucaju.
Trebalo je samo da napisem HINT-ove, koji sam ja cobanin, to da zaboravim. Ovaj Status bar sto imam (neki HTMLStatus bar) sam hvata hint komponente ispod misa i stavlja u polje gde kazes.
hvala jos jednom.

pozdrav!