Fontdialog bei Editfelder ??

[Vader]

hab da eine form da sind ein paar editfelder, jetzt hätte ich da eine frage
kann man die zahlen od. strings in den editfelder mit fontdialog andere
eigenschaften bzw ich würde andere schriftfarben brauchen zuweisen.

mfg vader

[Matze]

Edit1.Font:=FontDialog1.Font;

[Vader]

das funzt nicht.

Code:

Edit1.Font:=FontDialog1.Font;

wo muß ich diesen code einbinden ?

mfg vader

[Sharky]

Hai Vader,

möchtest Du das bei der Entwicklung ändern oder wenn dein Programm schon läuft?

Bei der Entwicklung:
Edit markieren und im OI bei der Eigenschaft Font auf die drei Punkt klicken.

[Vader]

nicht bei der entwicklung , sondern wenn das prog läuft.

mfg vader

[Sharky]

Fast so wie Matze es geschrieben hat.

Du brauchst auf deiner Form einen FontDialog (Registerkarte "Dialoge"). Und dann:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if  FontDialog1.Execute then
  begin
   Edit1.Font := FontDialog1.Font;
  end;
end;

[Vader]

Danke das funzt wunderbar

mfg Vader

[Sharky]

Hai Vader,

wenn Du aber nur die Schriftfabe ändern möchtest würde ich anderst vorgehen!
Dann würde ich einen ColorDialog nehmen und nur die Eigenschaft Color von Font ändern.

[Vader]

jetzt habe ich aber ein problem.
ich habe 31 editfelder auf der form aber ich weiß nicht im vorraus
bei welchen editfeld ich dann die fontfarbe wechsel muß.
geht das vielleicht wenn ich die zahl od string im editfeld markiere
und durch diese markierung der fontdialog nur dort aktiviert wird.


mfg Vader

[Sharky]

Hai Vader,

durch eine Markierung des Textes geht es nicht. Aber Du kannst allen Edits ein PopPup-Menü zuordnen. In diesem Rufst Du dann den Dialog auf und änderst die Eigenschaft nur bei dem Edit.