Delphi edits, TabSheets itd...

Odgovori Nova tema

3 odgovora
3.292 pregleda

Delphi edits, TabSheets itd... 21.01.2002. u 18:45 · pre 301 mesec #1

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

Potpis

srki

Re: Delphi edits, TabSheets itd... 22.01.2002. u 16:10 · pre 301 mesec #2

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

Re: Delphi edits, TabSheets itd... 22.01.2002. u 23:31 · pre 301 mesec #3

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;

Re: Delphi edits, TabSheets itd... 23.01.2002. u 14:19 · pre 301 mesec #4

Puno ti hvala na ovom source-u.

Potpis

srki

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme