Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: PopUpMenu: Den Sender ermitteln

    Delphi
    by BetaBot, 6. Mai 2009
  Habe es gerade auch rausgefunden:
  procedure TMainForm.grer1Click(Sender: TObject);
  begin
  If PopUpMenu1.PopupComponent is TMemo then (PopupMenu1.PopupComponent as TMemo).Font.Size := (PopupMenu1.PopupComponent as TMemo).Font.Size+1
  else If PopUpMenu1.PopupComponent is TListBox then (PopupMenu1.PopupComponent as TListBox).Font.Size := (PopupMenu1.PopupComponent as TListBox).Font.Size + 1;...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: PopUpMenu: Den Sender ermitteln

    Delphi
    by BetaBot, 6. Mai 2009
  hallo mr_emre_d,
  
  auf
  ShowMessage( TObject(Sender).ClassName );
  in der OnClickRoutine zeigt er die Message 'TMenuItem', also bin ich wohl einen falschen Weg gegangen. Aber wie kann ich denn nun rausfinden, von wo das PopUpMenu aufgerufen wurde?
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  PopUpMenu: Den Sender ermitteln

    Delphi
    by BetaBot, 6. Mai 2009
  Guten Abend Delphi - Gemeinde,
  
  falls mein Problem so simpel zu lösen ist, vorweg: Ich habe wirklich nach einer Lösung gesucht, komme aber gerade nicht weiter. Hier das Problem: Ich habe eine ListBox und ein Memo zum selben PopUpMenu verlinkt. Dieses Menu hat zwei Items 'größer' und 'kleiner' und je nach Wahl, sollen diese die Schrift vergrößern oder verkleinern. Im OnClickEreignis für das Item...