Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cruzer,
9. Jul 2007
Hab ne bessere Lösung gefunden.
Jetzt ist das PopupMenu nicht mehr beim RichEdit hinzugefügt sondern ich fange einfach den Rechtsklick ab und machs dann auf.
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssRight in Shift then
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cruzer,
9. Jul 2007
Hi, erstmal danke für die Antworten.
Ich habe es mit dem Objektinspektor zum RichEdit hinzugefügt. Da gibts ja extra nen Punkt namens "PopupMenu".
Zu dem Programm von marabu: Es geht nicht 2 Mal auf. Wenn ich allerdings das ShowMessage(Hint) z.B durch RichEdit.Text := '...' ersetze, tritt der Fehler wieder auf.
Als Übergangslösung hab ich das Problem umgangen, indem ich das PopupMenu...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cruzer,
8. Jul 2007
Hallo,
ich wollte mir gestern bei einem meiner Programme in Delphi (ich verwende Borland Delphi 7 unter Windows ME) ein PopupMenu zu einem RichEdit hinzufügen.
Prinzipiell funktioniert das auch, nur wenn ich in dem PopupMenu etwas auswähle geht es direkt danach an der gleichen Stelle nochmal auf.
Das passiert aber nur wenn ich es zu einem RichEdit hinzufüge, bei einem Memo gehts z.B.
Ich hab...