Fontdialog bei Editfelder ??

[Sharky]

Zitat von Vader:

wenn ich das richtig verstanden habe muß ich also über menü 31 mal
den selben code ausführen nur mit versch. editnummern...

Nö *gg*

Du kannst in deinem PopUpMenü abfragen von welchem Edit es aufgerufen wurde.

Delphi-Quellcode:

procedure TForm1.extFarbe1Click(Sender: TObject);
begin
  If (FontDialog1.Execute) then
    begin
     (PopupMenu1.PopupComponent As TEdit).Font := FontDialog1.Font;
    end;
end;

Das oben ist der Code der bei dem Menü des PopUps ausgeführt wird. Wenn Du nun allen Edits das selbe PopupMenü zuweisst geht es so.