Click derecho y salga fuente en edit txt

[ronald_tro]

Hola amigos como estan? bueno de nuevo aki con una duda, quisiera si alguien me peude ayudar, pasa que tengo una aplicacion y un edit1.txt y kisiera que al darle click derecho me aparezca el tradicional componente de cambiar la fuente, bueno no se si es componente pero es el tipico que sale en el m s n, gracias y espero no molestarlos

[dec]

Hola,

El componente es el "FontDialog" (TFontDialog) y lo encuentras en la pestaña "Dialogs" de la paleta de componentes.

[ronald_tro]

Gracias amigo por tu respuesta, en efecto, puse la herramienta FontDialog1 y escribi lo siguiente:

Código Delphi [-]
FontDialog1.Execute

se lo puse a un edit1.text , pero como hago para que al darle click derecho me permita seguir escribiendo y usar la fuente seleccionada, gracias y espero no molestarlos

[Neftali [Germán.Estévez]]

Añade un TPopupMrenu en el form (vacío sin opciones) (NOTA1) y asigna a la prieded PopupMenu del edit el anterior Popup.
Luego en el evento OnMouseUp coloca lo siguiente:

Código Delphi [-]
var
  b:Boolean;
begin

  if (Button = mbRight) then begin
    FontDialog1.Font.Name := Edit1.Font.Name;
    FontDialog1.Font.Size := Edit1.Font.Size;
    FontDialog1.Font.Color := Edit1.Font.Color;
    //... más propiedades

    b := FontDialog1.Execute;

    // Aceptado?
    if (b) then begin
      Edit1.Font.Name := FontDialog1.Font.Name;
      Edit1.Font.Size := FontDialog1.Font.Size;
      Edit1.Font.Color := FontDialog1.Font.Color;
      //....   más propiedades
    end;
  end;

Como ves, primero se asigna al FontDialog las propiedades actuales del edit, para que aparezca inicializado con los valores actuales, luego se muestra el diálogo, se comprueba que se ha aceptado y finalmente se recuperan los valores.

(NOTA1): Esto del PopupMeniu es una manera de evitar que te aparezca el menu estandard del edit al pulsar click derecho. Seguro que hay alguna mejor, pero esta funciona.

[ronald_tro]

Mil gracias Neftali, kizas soy muy pregunton pero me gustaria saber si alguien me puede hechar otra manita con esto, kisiera que la fuente que le cambie, asi tal cual me la reciba en el memo en donde recibo el texto, pensaba que era asi como un:

Código Delphi [-]
edit1.text:=memo1.text;

pero no no anda, ya que recibe el texto como si me comunicara y le envio la info a un memo, gracias y espero no molestarlos

[Neftali [Germán.Estévez]]

Empezado por ronald_tro

kisiera que la fuente que le cambie, asi tal cual me la reciba en el memo en donde recibo el texto

Lo que tú haces con un código similar a este, es asignar el contenido del Edit al Memo:

Código Delphi [-]
   memo1.Lines.Text := Edit1.Text;

Si quieres asignar la fuente deberás asignar esa propiedad:

Código Delphi [-]
  memo1.Font.Name := Edit1.Font.Name;

[ronald_tro]

Mil gracias amigo, cualquier duda se las hago saber, gracias