editbox üzerindeki imleci değiştirme

[young_ottoman]

editbox üzerine yazı yazarken veya focuslandıgında yanıp sonen imleci nasıl değiştirebilirim yada boyutlarını ve kalınlıgını nasıl ayarlarım?

[turkerunutmaz]

editbox ın properties menüsünde cursor var orda istediğini seçebilirsin.

[young_ottoman]

turkerunutmaz, mesajından alıntı:

editbox ın properties menüsünde cursor var orda istediğini seçebilirsin.

mouse uzerıne gelınce degısen imleç degıl KURSOR o

ben imleci degistirmek istiyorum yazı yazarken yanıp sonen " | " varya onu yanı

[young_ottoman]

bu soruya kımse cevap veremıcek

[Caylaq]

Otto Hocam,

Bildiğim kadarıyla " | " imleci büyütemez yada kalınlığını değiştiremessin. Ancak editin font özelliğini değiştirince "|" kalın olur.

Ama farklı bir şekilde çözülürse onu bilemiyorum

Kolay gelsin

Bulursan lütfen bize de bildir

[young_ottoman]

Caylaq, mesajından alıntı:

Otto Hocam,

Bildiğim kadarıyla " | " imleci büyütemez yada kalınlığını değiştiremessin. Ancak editin font özelliğini değiştirince "|" kalın olur.

Ama farklı bir şekilde çözülürse onu bilemiyorum

Kolay gelsin

Bulursan lütfen bize de bildir

caylaq mikro programında var "|" imlec değişik bir şekilde daha kolay görünüyor
arastırıyorum ama bulamıyorum bir türlü

[Caylaq]

Otto Hocam ,
Delphiturkiye.com adresindeki forumda bir arkaşımız şu şekilde halletmiş.

Umarım işini görür



Kolay gelsin

radiochaos, mesajından alıntı:

Sanırım bir karışıklık var. Mouse imleci (Cursor) ve Focus Alabilen ve keyboard input kabul eden TWinControl lerin içindeki Caret ayrı şeyler. Sanırım danaci nin istediği Caret ı değiştirmek. Çok fazla test şansım olmadı ama kodu copy-paste yapayım. Diğer Win32 API fonksiyonları ile daha da geliştirilebilir, hatta Bitmap bile Caret olarak kullanılabilir. (Win32 Programmer's Manual inceleyin). Kolay gelsin.
.
.
.

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure Edit1Change(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit1Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SetCustomCaret(Sender:TEdit);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetCustomCaret(Sender:TEdit);
begin
CreateCaret(Sender.Handle,0,8,12);
ShowCaret(Sender.Handle);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
SetCustomCaret(TEdit(Sender));
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
DestroyCaret;
Edit1.Repaint;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1Change(Sender);
end;

.