Das da wird ja wohl noch hinzukriegen sein. 8) Die Form hat ein Memo und einen Button. Das Memo wird im
OI vorbesetzt, siehe
DFM. Bei jedem Drücken des Buttons verschwinden die ersten beiden Zeilen aus dem Memo und der Rest rutscht nach oben.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Delete(0);
Memo1.Lines.Delete(1);
end;
end.
Delphi-Quellcode:
object Form1: TForm1 // Form als Text
Left = 232
Top = 103
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 200
Top = 128
Width = 185
Height = 89
Lines.Strings = (
'Memo1'
'2'
'3'
'4'
'5'
'6'
'7'
'8')
ScrollBars = ssVertical
TabOrder = 0
end
object Button1: TButton
Left = 112
Top = 328
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
end