TMemo scrollt bei hidden Form nicht

[taaktaak]

tja, das ist jetzt etwas seltsam, hab's mal ausprobiert - bei mir funktioniert das nach
OnActivate auch nicht. Ruft man es mit einem Button auf, geht es. Mal schauen, woran es liegt :evil:

// @RavenIV - ähhmmmm, was macht denn das Perform in Post#8? Wird da 'ne Grusskarte verschickt, oder 'ne Message? :mrgreen:

[taaktaak]

So fertig, falsches Event: Bau den Code in Application.OnRestore ein, dann funktioniert es!

[ddcool]

Nein geht bei mir auch nicht. Arghhh! :-D

Habe jetzt:

Delphi-Quellcode:

procedure TfrmMain.RestoreForm(Sender: TObject);
begin
  Memo2.SelStart := Length(Memo2.Text);
  Memo2.Perform(EM_SCROLLCARET,0,0);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnRestore := RestoreForm;
end;

[RavenIV]

Zitat:

Zitat von taaktaak

tja, das ist jetzt etwas seltsam, hab's mal ausprobiert - bei mir funktioniert das nach
OnActivate auch nicht. Ruft man es mit einem Button auf, geht es. Mal schauen, woran es liegt :evil:

// @RavenIV - ähhmmmm, was macht denn das Perform in Post#8? Wird da 'ne Grusskarte verschickt, oder 'ne Message? :mrgreen:

Also ich würde auf Grusskarte tippen. :corky: :cheer:

[taaktaak]

Gut geraten!
Dann wissen wir ja jetzt auch, wieso es nicht funktioniert!
:love:

[SirThornberry]

wurde das Form zu diesem zeitpunkt noch nie gezeigt oder war es vorher schonmal sichtbar?

[ddcool]

Und wie mach ichs dann? per SendMessage oder PostMessage???

@SirThornberry:
das ist egal, weder bei den einen noch bei dem anderen funktioniert es.

[taaktaak]

Nachtrag zum Thema "Grußkarte", die Delphi-Hilfe sagt zu Perform...

Zitat:

Mit Perform können Sie die Botschaftswarteschlange von Windows umgehen und eine Botschaft direkt an die Fensterprozedur des Steuerelements senden.

[himitsu]

Zitat:

Zitat von taaktaak

und eine Botschaft direkt an die Fensterprozedur des Steuerelements senden.

nur wenn das Fenster (schon) existiert

Code:

function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
var
  Message: TMessage;
begin
  Message.Msg := Msg;
  Message.WParam := WParam;
  Message.LParam := LParam;
  Message.Result := 0;
  [b]if Self <> nil then WindowProc(Message);[/b]
  Result := Message.Result;
end;

die meisten "Fenster"/Steuerelemente werden von der VCL erst erstellt, wenn sie angezeigt werden (und manchmal auch nur solange sie angezeigt werden).

evtl. hilft da ein Aufruf von (Control).HandleNeeded?

[taaktaak]

Moin, Moin himitsu!
Erster SAchverhalt war mir bewusst, der Zweite hat mich überrascht - da habe ich wieder etwas gelernt. Zum konkreten Fall: Hatte die Situation nachgestellt und da hat das Perform() funktioniert. Allerdings erfolgte das Minimize per BorderIcon und das Wiederherstellen ebenfalls händisch - vermutlich wird hierin der entscheidende Unterschied begründet sein, dass es bei ddcool nicht funktioniert.