showmessage und caption

[Hansa]

Zitat von Martin.Ghosts:

super, vielen dank

Nix super. 8) Das kann man so nicht stehen lassen. Luckie hat wohl nicht richtig überlegt. Du aber mußt Dir überlegen, was Variable sind. Die bestückt man je nach Lage und führt damit das ShowMessage aus. Beispiel :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnTest: TButton;
    procedure btnTestClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    i : integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnTestClick(Sender: TObject);
begin
  showmessage (IntToStr (i));
  i := i + 1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  i := 1;
end;

end.

@Luckie : Du wirst doch nicht mittlerweile ernsthaft Variable durch WinApi Aufrufe ersetzen wollen ?