Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
Hybrid View
-
23.Kasım.2014, 21:38 #1
DELPHI / Text Cursor'u Gizlemek
DELPHI / Text Cursor'u Gizlemek
Kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;
const
WM_MYMEMO_ENTER = WM_USER + 500;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure Memo1Enter(Sender: TObject);
procedure Memo1Exit(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
public
procedure WMMYMEMOENTER(var Message: TMessage);
message WM_MYMEMO_ENTER;
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMMYMEMOENTER(var Message: TMessage);
begin
CreateCaret(Memo1.Handle,0,0,0) ;
end;
procedure TForm1.Memo1Enter(Sender: TObject);
begin
PostMessage(Handle, WM_MYMEMO_ENTER, 0, 0);
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
CreateCaret(Memo1.handle,1,1,1) ;
end;
procedure TForm1.MemoChange(Sender: TObject);
begin
CreateCaret(Memo1.handle,0,0,0) ;
end;
end
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Alexa'da Widget'ınızı Gizlemek İstiyorsanız...
Konu Sahibi WeBMasteR Forum AlexaCevap: 1Son Mesaj : 22.Eylül.2017, 15:33 -
Extensible Hyper Text Markup Language (XHTML) Nedir?
Konu Sahibi donjuanhose81 Forum Webmaster SözlüğüCevap: 0Son Mesaj : 12.Şubat.2015, 23:18 -
Text, Checkbox ve Radio Butonu
Konu Sahibi megatron Forum Webmaster DünyasıCevap: 0Son Mesaj : 20.Ocak.2015, 00:01 -
Anchor text nedir?
Konu Sahibi WeBMasteR Forum Webmaster DünyasıCevap: 0Son Mesaj : 03.Ağustos.2014, 11:13 -
Anchor text nedir?
Konu Sahibi WeBMasteR Forum Webmaster DünyasıCevap: 0Son Mesaj : 29.Haziran.2014, 22:01
Shopsocks5.com - Service Socks5...
Dün, 05:31 in Güncel Proxy Adresleri