Delphi Forum

Aşağıdaki kodlar çalışıyor.


Hide MDIChild form
One of the ways for MDIChild form hiding is WinAPI ShowWindow and SetWindowPos functions.
Hide1Click procedure hides the form and Show1Click procedure shows this form.
Don't forget to remove line
Application.CreateForm(TForm2, Form2) from project ...

Adı bilinen bir alanın tipini bulmak için aşağıdaki fonksiyon kullanılabilir.
Function TypeField(DatabaseName, TableName, FieldName: String): String;
Var
Table : TTable;
FieldIndex : Integer;
FieldType : TFieldType;
Begin
Result := '';
If Not IsTable(DatabaseName, TableName) Then Exit;
If Not ...

harfle başlayan satırlar 1 karekter sağdan başlamalı.

1.........
a.......
b.......
2.........
3.........
a.......
b.......
c.......

yukardakine benzer bir metin dosyası oluşturursan. Sorun çözülür.

type
TAccessDBGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
S1, S2: String;
begin
with TAccessDBGrid(DBGrid1) do
begin
// Increase title height
// Titelhöhe ...