Hallo,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
TM: TextMetric;
DC: HDC;
SaveFont: HFont;
begin
DC := GetDC(0);
SaveFont := SelectObject(
DC,
Label.Font.Handle);
GetTextMetrics(
DC, TM);
SelectObject(
DC, SaveFont);
ShowMessage('
= ' + IntToStr(TM.tmExternalLeading));
ReleaseDC(0,
DC);
end;
liefert mir immer 0 zurück ;(
Auch ein Self.Font.Handle (Self=Form) klappt nicht.
Heiko