Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi edits, TabSheets itd...

[es] :: Pascal / Delphi / Kylix :: Delphi edits, TabSheets itd...

[ Pregleda: 2641 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

srdja

Član broj: 2128
Poruke: 11
*.ptt.yu



Profil

icon Delphi edits, TabSheets itd...21.01.2002. u 17:45 - pre 270 meseci
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
srki
 
Odgovor na temu

Makojdis
Stefanovic Milos
Kragujevac

Član broj: 78
Poruke: 302
*.ptt.yu



Profil

icon Re: Delphi edits, TabSheets itd...22.01.2002. u 15:10 - pre 270 meseci
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
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Delphi edits, TabSheets itd...22.01.2002. u 22:31 - pre 270 meseci
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;
 
Odgovor na temu

srdja

Član broj: 2128
Poruke: 11
*.ptt.yu



Profil

icon Re: Delphi edits, TabSheets itd...23.01.2002. u 13:19 - pre 270 meseci
Puno ti hvala na ovom source-u.
srki
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi edits, TabSheets itd...

[ Pregleda: 2641 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.