Sortierung von TMemo bei Programmstart

[Calanda]

Hallo liebe Community
Ich möchte beim Start meiner Applikation in einem TMemo den Inhalt einer Textdatei darstellen.
Das funktioniert wunderbar.
Ebenfalls soll das TMemo bis zuunterst scrollen, sodass die aktuellsten Einträge ersichtlich sind. Das funktioniert z.B. per Button perfekt, aber nicht beim Start der Applikation.
Ich habe den Code jeweils im FormCreate und im FormShow versucht, funktioniert leider nicht.
Wie bekomme ich das hin?

Code: Alles auswählen

Liste.Lines.Clear;
Liste.Lines.LoadFromFile(LogFileLink);
Liste.SelStart := Length(Liste.Text);

Ich sage jetzt schon mal vielen Dank für Tips und Tricks.
Gruss Calanda

[theo]

Mach ein

Code: Alles auswählen

Application.ProcessMessages;

vor dem Liste.SelStart :=...

[Calanda]

Danke für den Tip, hat leider nicht funktioniert...
Kann es daran liegen, dass ich in einem TEdit ebenfalls ein SetFocus mache?

[Frank Ranis]

Hallo Calanda,

habe es so hinbekommen .
Nicht schön , aber !

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure FormPaint(Sender: TObject);
 private

 public

 end;

var
 Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.lines.LoadFromFile('Neues Textdokument.txt');
 Tag:=-1;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 if Tag=-1
  then
   begin
    memo1.SelStart := Length(memo1.Text);
    tag:=0;
   end;
end;

end. 

Gruß

Frank

[Calanda]

Hallo Frank
Vielen Dank, funktioniert wunderbar!
Danke und liebe Grüsse aus der Schweiz!

[theo]

Danke für den Tip, hat leider nicht funktioniert...
Kann es daran liegen, dass ich in einem TEdit ebenfalls ein SetFocus mache?

Hast du es in OnShow ausprobiert?
Bei mir funktioniert es so:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Liste.Lines.LoadFromFile('/home/theo/win.txt');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Application.ProcessMessages;
  Liste.SelStart := Length(Liste.Text);
end;    

@Frank: OnPaint würde ich dafür eher nicht nehmen.
OnActivate würde sich für diesen Weg anbieten.

[Frank Ranis]

Hallo theo,

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
begin
 application.ProcessMessages;
 memo1.SelStart := Length(memo1.Text);
end;

hat unter Win-10 leider nicht funktioniert , unter Linux-Mint schon.

Der Tipp mit

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
begin
 memo1.SelStart := Length(memo1.Text);
end;

funzt unter Win und Linux.

Sehr schön , kann man sich meinen ersten Schnellschuss mit dem Tag:=-1, usw.
sparen
und application.ProcessMessages;
braucht es dann auch nicht .

Wenn man auf verschiedenen Plattformen und Widget unterwegs ist erlebt man immer wieder neue Überraschungen .
Und man muß wirklich jedes Programmdetail austesten .

Gruß

Frank

[af0815]

Ich nutze immer den ersten Aufruf von FormActivate für Initialisierungen vom Programm. Das ist IMHO der beste Zeitpunkt, weil zu diesem Zeitpunkt ganze einfach alles schon stabil ist und ich sicher gehen kann, das die Komponenten alle ihre initialisierung durchlaufen haben. Hier erstelle ich auch alle Fenster die ich benötige und die nicht als Singleton oder dynamisch erzeugt sonst verwendet werden.

Einfach mit einem Flag gegen wiederholtes Aufrufen schützen und das ganze System wird auf allen mir bekannten Plattformen stabil. (War mit Delphi vor Jahrzehnten schon dasselbe, dort habe ich mich auch herumgeärgert, bis ich es auf das Schema umgestellt habe)