Form.keypreview - Taste an Edit weiterreichen?

[Uwe Raabe]

Zitat von SearchBot:

suche ich in der Bibliotheken-Referenz

Da hat der auch nichts zu suchen: https://docwiki.embarcadero.com/RADS..._(Delphi)#Self

[himitsu]

Innerhalb einer Methode deiner TForm1 kannst du direkt auf Edit1 von "dieser" Form zugreifen,
oder eben mit Self.Edit1, z.B. wenn man mitten in einem bösen WITH fest hängt.
(Self ist quasi ein unsichtbarer/impliziter Parameter an allen Methoden einer Klasse)

aber sowas wie Form1.Edit1 macht man "hier" niemals
und auch andere "externen" Variablen/Quellen sollte man besser niemals benutzen.

[SearchBot]

Zitat von Uwe Raabe:

Zitat von SearchBot:

suche ich in der Bibliotheken-Referenz

Da hat der auch nichts zu suchen: https://docwiki.embarcadero.com/RADS..._(Delphi)#Self

Dankeschön.

Ein bisschen wird es dort ja erklärt.
Witzigerweise steht dort aber auch: "For information about Self in class methods, see "Class Operators" in Class References."
Und wenn ich dann diese verlinkte Seite aufrufe, steht dort aber gar nichts von Self

[haentschman]

Moin...

Wie immer mache ich den Spielverderber...
with edit1 do Das das immer wieder benutzt wird, obwohl die halbe Welt davor warnt!

[Frickler]

Zitat von haentschman:

Moin...

Wie immer mache ich den Spielverderber...
with edit1 do Das das immer wieder benutzt wird, obwohl die halbe Welt davor warnt!

Früher war das mal guter Stil...

Ich würde mir ja wirklich sowas wünschen:

Delphi-Quellcode:

with var qry:=DataModule1.Query1 do begin
  qry.FieldByName('foo').AsString := bar;
  [...]
end;

...wobei "qry" dann lokal nur im "with" Block definiert ist.

[himitsu]

Ja, Aliase gibt es leider nicht, aber (seit Kurzem) Inline-Variablen ... endlich ein Grund zum Upgrade

Delphi-Quellcode:

var qry := DataModule1.Query1;
qry.FieldByName('foo').AsString := bar;
[...]

https://www.delphipraxis.net/211303-...ml#post1510899

[Uwe Raabe]

Wenn man den Scope ähnlich klein halten will wie bei dem with:

Delphi-Quellcode:

begin
  var qry:=DataModule1.Query1;
  qry.FieldByName('foo').AsString := bar;
  [...]
end;
...
begin
  var qry:=DataModule1.Query2;
  qry.FieldByName('bar').AsString := foo;
  [...]
end;