Hint bir alt satır..

loxka · Mesaj gönderen **loxka** » 22 Mar 2006 12:33

Hint yazarken bir alt satıra nasıl geçiyoruz arkadaşlar, mümkünmüdür ?
Teşekkür ederim

ylmz · Mesaj gönderen **ylmz** » 22 Mar 2006 12:49

merhaba

edit1.hint := 'bu hintin birinci satırı' + #13 +
'buda hintin ikinci satırı';
kolay gelsin

loxka · Mesaj gönderen **loxka** » 22 Mar 2006 12:58

Benim istediğim 'object Inspector' a nasıl yazılacağıydı..
Teşekkür ederim

poke53280 · Mesaj gönderen **poke53280** » 22 Mar 2006 02:13

loxka yazdı:Benim istediğim 'object Inspector' a nasıl yazılacağıydı..
Teşekkür ederim

Bunu oradan yazamazsın. Kodla yapmalısın. zaten çok kısa dikkat edersen.

Başarılar.

Mesaj gönderen **mussimsek** » 22 Mar 2006 02:45

Raize gibi bazı setler kendi property editörlerini yüklüyorlar. O zaman bu tarz yazıları daha kolay yazabiliyorsunuz.

Formda Alt + F12 ile dfm kısmını açın ve aşağıdaki tarzda istediğiniz ifadeyi yazın.

Kod: Tümünü seç

Hint = 'ilk satir'#13'ikinci satir'

Kolay gelsin.

ylmz · Mesaj gönderen **ylmz** » 23 Mar 2006 10:10

merhaba,

TApplication'ın showhint olayına kod yazarak object inspectorden şu şekilde hint yazabilirsin.

hint := 'birincisatır#13ikincisatır'

Kod: Tümünü seç

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
var
  y:integer;
begin
  y := pos('#13', hintstr);
  while y>0 do
  begin
    hintstr := copy(hintstr, 1, y-1) + #13 + copy(hintstr, y+3,length(hintstr)-y+3);
    y := pos('#13', hintstr);
  end;
end;

iyi çalışmalr.