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)

[Niesi]

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)

Danke für diesen Tipp, hat mir jetzt geholfen, da ich beim Programmstart den Focus auf ein TEdit setzen möchte und so auch gemacht habe. (Das TEdit sitzt in einem TabSheet.)

Zum Flag habe ich noch eine Frage, bitte: Da nutze ich am besten eine IsActivated: boolean; welche ich in OnCreate auf false setze und beim ersten Aufruf von OnActivate auf true. Dadurch kann ich dann per "if not IsActivated then ..." bei OnActivate meinen Focus auf das richtige TEdit setzen, was dann auch nur beim ersten Durchlauf von OnActivate passiert - oder geht es noch einfacher?

SetFocusInOnActivate.7z

(146.27 KiB) 34-mal heruntergeladen

[af0815]

Ich besetze das Flag im FormCreate mit dem Defaultwert 'False'. Die ganzen OnXXX sind mir zu unsicher für das setzen der Defaults. Am liebsten überschreibe ich den Create Construktor und mache dort meine initialisierung.

[Niesi]

Ich besetze das Flag im FormCreate mit dem Defaultwert 'False'. Die ganzen OnXXX sind mir zu unsicher für das setzen der Defaults. Am liebsten überschreibe ich den Create Construktor und mache dort meine initialisierung.

Danke. Ja, bisher habe ich auch oft den Create Constructor überschrieben - und dachte, dass das eigentlich nicht so sein soll. Hehe ... ok, das verstehe ich und werde das auch wieder so tun ...

P.S.: Habe das Beispiel mal angepasst, falls mal wer nach so etwas sucht ...

SetFocusInOnActivate.7z

(165.81 KiB) 35-mal heruntergeladen