|
...set the tabulator width in a TMemo?
|
| Autor:
Thomas Stutz |
| [ Print tip
] | | |
procedure TForm1.Button1Click(Sender: TObject);
var
FTabWidth: Integer;
begin
Memo1.WantTabs := True;
{setzt die Tabulator Breite auf 4 Pixel}
{set the tabulator width to 4 pixel}
FTabWidth := 4;
SendMessage(Memo1.Handle, EM_SETTABSTOPS, 1, Longint(@FTabWidth));
end;
|
