Delphi'de bir TEdit'in tuvalini nasıl alabilirim?

Question

Bir TTimer doğrudan Canvas özelliği var çünkü maalesef bu derleme değil

Edit1.Text := MinimizeName(FileName, Edit1.Canvas, Edit1.Width); 

gibi Tedit şey sığacak şekilde bir dosya adı kısaltmak istiyoruz. Tuval, yazı tipi metrikleri için gereklidir. Bir TEdit tuvaline nasıl erişebilirim?

(MinimizeName Vcl.FileCtrl bildirilmiştir.)

Answer 1

Sen TControlCanvas kullanabilirsiniz. Kontrolün yazı tipini de hesaba katmalısınız.

örn:

tuval yalnızca TTimer metrik formu metrik aynı olduğunu varsayarsak, metrik almak için kullanıldığından

var 
    Canvas: TControlCanvas; 

Canvas := TControlCanvas.Create; 
try 
    Canvas.Control := Edit1; 
    Canvas.Font.Assign(Edit1.Font); 

    // Do something with Canvas... 
finally 
    Canvas.Free; 
end; 

Answer 2

Tamam, buldum. ilgilenenler için:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    aCanvas: TCanvas; 
begin 
    if FileOpenDialog1.Execute then begin 
    aCanvas := TCanvas.Create; 
    try 
     aCanvas.Handle := GetDC(Edit1.Handle); 
     Edit1.Text := MinimizeName(FileOpenDialog1.FileName, aCanvas, Edit1.Width - 8); 
    finally 
     ReleaseDC(Edit1.Handle, aCanvas.Handle); 
     aCanvas.Free; 
    end; 
    end; 
end; 

Answer 3

, MinimizeName form tuval kullanmak yeterlidir aramak. Bu, metriğin farklılık göstermesinin bir nedeni olmadığı sürece daha basit ve geçerlidir.