AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Popup, wie erkenne ich wo aktiviert wurde
Thema durchsuchen
Ansicht
Themen-Optionen

Popup, wie erkenne ich wo aktiviert wurde

Ein Thema von waldforest · begonnen am 20. Mär 2010 · letzter Beitrag vom 21. Mär 2010
Antwort Antwort
Seite 1 von 2  1 2      
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:20
Hallo,
ich habe 3 Memofelder.
Über 1 Popup möchte ich Aktionen ausführen, in dem Memofeld, in dem ich mit Rechtsklick dieses Popup geöffnet habe.

Wie kann ich ermitteln, in welchem Memofeld ich das Popup aktiviert habe ?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#2

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:28
TPopupMenu.PopupComponent
Uwe Raabe
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:31
ScreenToClient(PopupMenu.PopupPoint) Edit: War die Frage eben nicht noch anders?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:33
Er wollte ja die Komponente wissen, nicht die Koordinate
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:34
Zitat von DeddyH:
Er wollte ja die Komponente wissen, nicht die Koordinate
Edit: Hab mich wohl doch verlesen, sorry.
  Mit Zitat antworten Zitat
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#6

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:41
Hallo,
erst mal danke, bin aber noch nicht weiter gekommen.
z.B. hinzufügen einer neuen Zeile im Memo.

Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var i:integer;
begin
if not opendialog.Execute then exit;
 for i := 0 to opendialog.Files.count-1 do
  (ActiveControl as TMemo).Lines.Add(opendialog.Files[i]);

end;
Da steig mein Programm mit einer Excepption aus.
  Mit Zitat antworten Zitat
daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#7

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:48
Ist das ActiveControl auch dein TMemo ?
Lars
  Mit Zitat antworten Zitat
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#8

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 18:50
Hallo,
ja,
ich habs gelöst.

Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var i:integer;
begin

if not opendialog.Execute then exit;

 for i := 0 to opendialog.Files.count-1 do
 (PopupMenu.PopupComponent as TMemo).Lines.Add(opendialog.Files[i]);

end;
PopupMenu.PopupComponent war der richtige Hinweis
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 20:14
Man kann das auch noch schöner und schneller machen; man braucht dazu nur eine Zwischenvariable.
Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var
  i:integer;
  lines : TStrings;
begin
  if not opendialog.Execute then exit;
  lines := (PopupMenu.PopupComponent as TMemo).Lines;
  for i := 0 to opendialog.Files.count-1 do
    lines.Add(opendialog.Files[i]);
end;
Damit ist die Anweisung (PopupMenu.PopupComponent as TMemo).Lines ausserhalb der Schleife und das ist ein Vorteil, weil sich dahinter gleich 3 Funktionsaufrufe verstecken.
Aber es geht noch besser:
Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var
  lines : TStrings;
begin
  if opendialog.Execute then
  begin
    lines := (PopupMenu.PopupComponent as TMemo).Lines;
    lines.AddStrings(opendialog.Files);
  end;
end;
Man könnte jetzt die Zwischenvariable "lines" wieder eliminieren, aber das macht den Code nicht besser lesbar.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#10

Re: Popup, wie erkenne ich wo aktiviert wurde

  Alt 20. Mär 2010, 20:28
Und statt AddStrings könnte man auch Assign nehmen
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz