Kreslenie priamo na obrazovku, ktorý vidí používateľ.

procedure TForm1.Button1Click(Sender: TObject); 
var 
  dc : hdc; 
begin 
  dc := GetDc(0); 
  MoveToEx(Dc, 0, 0, nil); 
  LineTo(Dc, 300, 300); 
  ReleaseDc(0, Dc); 
end;
Tento článok pridal igo dňa 24.09.2001 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.