Ekran Klavyesi
| ||||
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
a:Integer;
begin
DrawGrid1.Font.Color:=clRed;
DrawGrid1.Font.Size:=15;
DrawGrid1.Font.Style:=[fsbold];
if (ACol=0) and (ARow=1) then
begin
Rect:=DrawGrid1.CellRect(ACol,ARow);
DrawGrid1.Canvas.TextRect(rect,75,2,’B');
end;
if (ACol=0) and (ARow=0) then
begin
Rect:=DrawGrid1.CellRect(ACol,ARow);
DrawGrid1.Canvas.TextRect(Rect,25,2,’A');
end;
end;
procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if ACol=0 then ShowMessage(‘a’);
end;
end.
dfm dosyası
object Form1: TForm1
Left = 192
Top = 107
Width = 870
Height = 640
Caption = ‘Form1′
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘MS Sans Serif’
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DrawGrid1: TDrawGrid
Left = 120
Top = 96
Width = 409
Height = 353
FixedCols = 0
FixedRows = 0
TabOrder = 0
OnDrawCell = DrawGrid1DrawCell
OnSelectCell = DrawGrid1SelectCell
end
end
Benzer Yazılar:
- Tüm Dosya ve Klasörlerin Listesini Almak
- Van Yüksek İhtisas Eğitim ve Araştırma Hastanesi
- KİM DİYECEKSİN
- SENSİZLİK
- BİR AŞK MASALI
- KAHREDEN HASRET
- GİTTİN
- ÇİLE ÇEKİYOR
- AYTEN ŞİİRİ
- SON DEFA
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
“Ekran Klavyesi”
Konusu için 1 Yorum
---------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------
Loading ...
i see what you did there