Как написать на экране?

← →
Yanis (2003-04-24 14:29) [0]

Пожалуйста, кто сталкивался с этим вопросом, помогите, напишите что нибудь.
Хотелось бы попробовать написать на экране большими буквами, но не выходит, может кто знает.

← →
Smithson (2003-04-24 14:34) [1]

На экране - это на десктопе? Тогда GetDC(0,
Или на своей форме? Тогда читай про OutText
Или прямо на стекле? Тогда проси у подруги помаду :-))

← →
Yanis (2003-04-24 14:44) [2]

Прямо на десктопе, если можно поподробнее или с примерчиком.

← →
Anatoly Podgoretsky (2003-04-24 14:46) [3]

Только вместо 0 правильнее использовать GetDesktopWindow

← →
Yanis (2003-04-24 15:05) [4]

Я бы не стал ругаться если кто нито вбил в мою голову как написать на десктопе текст. А то никак понять немогу че дальше делать. Вы уж извините за тупость, но вам думаю не составит труда написать, подробно.

← →
gek (2003-04-24 15:29) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
dc : hdc;
begin
dc := GetDc(0);
Ellipse(dc , 0, 0, 200, 200);
ReleaseDc(0, Dc);
end;

← →
CAMOBAP (2003-04-24 15:48) [6]

procedure TForm1.Button1Click(Sender: TObject);
var DesktopCanvas : TCanvas ;
begin
DesktopCanvas := TCanvas.Create ;
DesktopCanvas.Handle := GetDC( 0 ) ;
DesktopCanvas.Font.Size:=100;
DesktopCanvas.TextOut(10,100,"ТЕКСТ");
DesktopCanvas.Free ;
end;

← →
Skier (2003-04-24 16:25) [7]

>CAMOBAP
А ReleaseDC ?

Как написать на экране? Найти похожие ветки