[ srdja @ 21.01.2002. 17:45 ] @
Na koji nacin mogu da resim sledeci problem:
-Hocu da kada mi se postavi fokus na neku TEdit ili TComboBox kontrolu ta kontrola promeni boju u npr. 'zutu', a kada se napusti(Exit) ta kontrola vrati se boja u naormalnu('ClWindow')?
-Na jednoj formi imam PageControl sa nekoliko stranica. Na svakoj stranici ima nekoliko Tedit-a, TComboBox-ova. Na koji nacin da sa prve stranice PageControl-a ,pomocu TAB ili ENTER premestim fokus na sledecu aktivnu kontrolu kroz sva polja, predjem na sledecu stranicu (TabSheet2) u prvo aktivno polje. Znaci drzim Enter ili Tab i Fokus se premesta , prvo kroz sve kontrole na jednoj stranici, pa zatim automatski prelazi na sledecu stranicu i tako u krug.

Mislim da sam barem malo bio jasan sa ovim mojim pisanjem
HVALA
[ Makojdis @ 22.01.2002. 15:10 ] @
1. posroji funkcija focused recimo if edit.focused= true onda promenis boju...

2. probaj da u onkeypress uradis sledece if key=vk_tab then edit1.setfocus;
gde je edit1 na drugom sheet-u trebalo bi da radi ili mozda da se opcija active na ovom sheet-u postavi na true

Pozdarv
[ Gojko Vujovic @ 22.01.2002. 22:31 ] @
Kakva slučajnost :) Koristio sam iste komponente i istu boju..

Evo ti kod, a posle samo property editorom dodaj to u OnEnter i OnExit event-e svih edit kontrola koje zelis da farbas:

Code:
procedure TForm1.Color(Sender: TObject);
begin
  with Sender as TEdit do
    Color := clYellow;
end;

procedure TForm1.NoColor(Sender: TObject);
begin
  with Sender as TEdit do
    Color := clWindow;
end;

procedure TForm1.ColorCombobox(Sender: TObject);
begin
  with Sender as TComboBox do
    Color := clYellow;
end;

procedure TForm1.NoColorComboBox(Sender: TObject);
begin
  with Sender as TComboBox do
    Color := clWindow;
end;
[ srdja @ 23.01.2002. 13:19 ] @
Puno ti hvala na ovom source-u.