| Autor |
Beitrag |
motion
 
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Sa 02.10.10 14:57
Ich habe eine von TEdit vererbte Komponente erstellt, die einige applikationsspezifische Funktionsweisen erfüllt. Jetzt möchte ich das vom System/VCL gelieferte Kontextmenu um weitere Menüpunkte und funktionen erweitern. Wie kann ich das machen?
Das Contextmenu muss an der TmyEdit Komponente hängen, nicht an jedem einzelnen Form, wo die Komponente eingesetzt wird.
Es gibt es OnContextMenu Event, aber da kriege ich noch keine Objekt übergeben, mit dem ich Zugriff zum Contextmenu bekomme, oder?
Das Autocontextmenü ist ja schon soweit in Ordnung, nur benötige ich dort zwei oder mehr weitere Menüpunkte.
|
|
Regan
Beiträge: 2157
Erhaltene Danke: 72
Java (Eclipse), Python (Sublimetext 3)
|
Verfasst: Mo 04.10.10 18:57
Ich denke, dass die einfachste Methode das Nachbauen dieses Menüs sein wird. Warum? In meinen Fenster-Context-Menüs ist noch ganz anderer Mist drin (z. B. Fenster in den Tray, Fentster immer blinken etc.). Die machen bei deiner Komponente keinen Sinn und würden den Anwender vielleicht verunsichern.
Indem du deinem Edit-Feld ein neues Context-Menü zuweist, wird AFAIK das Standardmenü überschrieben.
|
|
motion 
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Mo 04.10.10 19:55
Okay, das hatte ich befürchtet.
Und das Contaxt Menu dann dynamisch in der Komponente erzeugen sobald rechts geklickt wird?
Wie übernehme ich die default Aktionen und ob die jeweils möglich sind (z.B. kein "einfügen" wenn das Clipboard leer ist)? Muss ich das alles selbst nachbauen?
Hast Du etwas Sample-Code zu Hand?
|
|
Regan
Beiträge: 2157
Erhaltene Danke: 72
Java (Eclipse), Python (Sublimetext 3)
|
Verfasst: Mo 04.10.10 20:39
 motion hat folgendes geschrieben  : | Okay, das hatte ich befürchtet.
Und das Contaxt Menu dann dynamisch in der Komponente erzeugen sobald rechts geklickt wird? |
Ich würde das schon zur Entwicklungszeit etwas machen.
| motion hat folgendes geschrieben : | | Wie übernehme ich die default Aktionen und ob die jeweils möglich sind (z.B. kein "einfügen" wenn das Clipboard leer ist)? Muss ich das alles selbst nachbauen? |
Ich würde das jetzt (ohne genaueres Wissen) mit Ja! beantworten. Ich denke, dass dir das Clipboard da sehr weiterhilft. Zum Einfügen: Nicht prüfen, ob etwas drin ist, sondern ob das, was drin ist, ein Text ist. Der Rest dürfte einfach sein. Bei Fragen dazu erstelle aber bitte ein extra Thema. Das hat mit diesem dann nichts mehr zu tun.
| motion hat folgendes geschrieben : | | Hast Du etwas Sample-Code zu Hand? |
Das sollte dir helfen. Zum Prüfen auf Text dann einfach das dort beschriebene CF_TEXT verwenden.
|
|
motion
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Mo 04.10.10 21:48
Clipboard Benutzung ist kein Problem.
Eher das dynamische Erstellen des Popup-Menus, Plazierung/Anzeige, dynamische Erzeugen der einzelnen Ereignisse etc.
|
|
motion
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Mo 04.10.10 22:51
Okay, ich habe da jetzt schon mal eine Spur aufgenommen (noch etwas rumgegoogelt).
Ich werde mal schauen, ob ich die nächsten Tage da was ans Laufen kriege (der erste Versuch sieht schon gut aus) und das dann hier posten.
|
|
motion
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Mo 04.10.10 23:56
So, für heute mache ich erst mal Schluß.
Mein Code sieht schon ganz gut aus (momentan dynamisch erstelltes Popup Menü mit zusätzlicher Funktioner "Einfügen Sonderzeichen"). Erst mal in einem Formular. Wenn das läuft dann muss ich das nur noch für meine MyTEdit-Komponente umwandeln und dann ist das Problem hoffentlich gelöst. Stay tuned.
|
|
motion
Beiträge: 295
XP, Linux
D7 Prof
|
Verfasst: Di 05.10.10 21:30
So, hier die Lösung (erst mal dyn. Popup-Erzeugung auf einem Formular; das passe ich jetzt direkt an meine TMyEdit Komponente an).
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
| procedure TForm1.PopupItemClickRueckgaengig(Sender: TObject) ;
begin
edit1.Undo;
end;
procedure TForm1.PopupItemClickAusschneiden(Sender: TObject) ;
begin
edit1.CutToClipboard;
end;
procedure TForm1.PopupItemClickKopieren(Sender: TObject) ;
begin
edit1.copytoclipboard;
end;
procedure TForm1.PopupItemClickEinfuegen(Sender: TObject) ;
begin
edit1.PasteFromClipboard;
end;
procedure TForm1.PopupItemClickLoeschen(Sender: TObject) ;
begin
edit1.ClearSelection;
end;
procedure TForm1.PopupItemClickAllesmarkieren(Sender: TObject) ;
begin
edit1.SelectAll;
end;
procedure TForm1.PopupItemClickEinfgSonderzeichen(Sender: TObject) ;
Var Pos : Byte;
begin
with edit1 do
Begin
Pos:=SelStart;
text:=copy(text,1,Pos)+TMenuitem(Sender).Caption[1]+copy(text,Selstart,Length(text)-Pos);
SelStart:=Pos+1;
end;
end;
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
const AnzSonderzeichen = 5;
const Zeichen : Array [1..AnzSonderzeichen] of String = ('Ø Durchmesser','± Plus-Minus','½ 1/2','¼ 1/4','¾ 3/4');
var p :Tpopupmenu;
menuItemRueckgaengig,
menuItemAusschneiden,
menuItemKopieren,
menuItemEinfuegen,
menuItemLoeschen,
menuItemAllesMarkieren,
sep1,sep2,sep3,
menuItemEinfuegenSonderzeichen : TMenuItem;
Sonderzeichen : array[1..AnzSonderzeichen] of TmenuItem;
I : Byte;
begin
p:=TPopupmenu.create(self);
menuItemRueckgaengig := TMenuItem.Create(p) ;
With menuItemRueckgaengig do
begin
Caption := 'Rü&ckgängig';
OnClick := PopupItemClickRueckgaengig;
End;
P.Items.Add(menuItemRueckgaengig) ;
sep1:=TMenuItem.Create(p);
sep1.caption:='-';
P.Items.Add(sep1) ;
menuItemAusschneiden := TMenuItem.Create(p) ;
With menuItemAusschneiden do
begin
Caption := '&Ausschneiden';
OnClick := PopupItemClickAusschneiden;
End;
P.Items.Add(menuItemAusschneiden) ;
menuItemKopieren := TMenuItem.Create(p) ;
With menuItemKopieren do
begin
Caption := '&Kopieren';
OnClick := PopupItemClickKopieren;
End;
P.Items.Add(menuItemKopieren) ;
menuItemEinfuegen := TMenuItem.Create(p) ;
With menuItemEinfuegen do
begin
Caption := 'Ein&fügen';
OnClick := PopupItemClickEinfuegen;
End;
P.Items.Add(menuItemEinfuegen) ;
menuItemLoeschen := TMenuItem.Create(p) ;
With menuItemLoeschen do
begin
Caption := '&Löschen';
OnClick := PopupItemClickLoeschen;
End;
P.Items.Add(menuItemLoeschen) ;
sep2:=TMenuItem.Create(p);
sep2.caption:='-';
P.Items.Add(sep2) ;
menuItemAllesMarkieren := TMenuItem.Create(p) ;
With menuItemAllesMarkieren do
begin
Caption := 'Alles &markieren';
OnClick := PopupItemClickAllesMarkieren;
End;
P.Items.Add(menuItemAllesMarkieren) ;
sep3:=TMenuItem.Create(p);
sep3.caption:='-';
P.Items.Add(sep3);
menuItemEinfuegenSonderzeichen := TMenuItem.Create(p) ;
With menuItemEinfuegenSonderzeichen do
begin
Caption := 'Sonderzeichen einfügen';
End;
P.Items.Add(menuItemEinfuegenSonderzeichen) ;
menuItemRueckgaengig.Enabled:=Edit1.CanUndo;
menuItemAusschneiden.Enabled:=Edit1.SelText<>'';
menuItemKopieren.Enabled:=Edit1.SelText<>'';
menuItemEinfuegen.Enabled:=Clipboard.HasFormat(CF_TEXT);
menuItemLoeschen.Enabled:=Edit1.SelText<>'';
For I:=1 to AnzSonderzeichen do
Begin
Sonderzeichen[i]:=TMenuItem.create(p);
with sonderzeichen[i] do
begin
caption:=Zeichen[I];
onclick:=PopupItemClickEinfgSonderzeichen;
p.Items.items[9].add(sonderzeichen[i]);
end;
end;
p.popup (Mouse.CursorPos.X, Mouse.CursorPos.Y);
Application.Processmessages;
For I:=1 to AnzSonderzeichen do
Begin
Sonderzeichen[I].free;
end;
menuItemRueckgaengig.free;
sep1.free;
menuItemAusschneiden.free;
menuItemKopieren.free;
menuItemEinfuegen.free;
menuItemLoeschen.free;
sep2.free;
menuItemAllesMarkieren.free;
sep3.free;
menuItemEinfuegenSonderzeichen.free;
p.Free;
handled:=true;
end; |
|
|
