Delphi Forum

Ben cevaplayayım sorun eski proje dosyasındaki var olan ole2.dcu dosyasından kaynaklanıyormuş onu siildim delphi7 yada herhangi bir sürümde delphi 7\Install\program files\Borland\Delphi7\Source\Rtl\Win kalsöründe var olan ole2.pas dosyasını projenin yanına kopyalayıp derleyince yeni bir dcu dosyası ...

aslında buradaki sorun ile aynı sorun ama öçözüm önerisini nasıl kullanacağımı anlamadım ?

https://stackoverflow.com/questions/593 ... ent-window

https://stackoverflow.com/questions/149 ... ediaplayer

uses
ComObj, ActiveX;

var
WMP: Variant;
begin
WMP := CreateOleObject('WMPlayer.OCX');
WMP.FullScreen := True;
end;

merhaba desteğin için teşekkür ederim ama istediğim video yu tam ekran olarak oynatmak değil. video tam ekran yapsamda ortada küçük bir şekilde oynatılıyor video yu panel ...

Merhaba;
Delphi7 de çalışan bir projem vardı ihtiyaç oldu eski kodlarımı buldum delphi 11 de derlemeye çalışıyorum tüm eksikleri giderdim ancak Delphi 7 de uses satırında ol2.dcu diye bir eklenti kullanmışım burada F2063 : cold not compile used unit 'ole2' at line 8 ... şeklinde bir derleme hatası ...

https://stackoverflow.com/questions/261 ... at-runtime

Bu link deki functionlar ile cxgridde toplam almayı başardım emeğine sağlık teşekkür ederim.

Alttaki function ile 0,00 ₺ formatında veriler göstermeyi çözdüm bir de toplam alabilirsem güzel olacak.

procedure Taidat_makbuz.format_integer_field(Atable: TDataSet);
var i: integer;
begin
if Atable.Active then
if Atable.FieldCount > 0 then
with Atable do
begin
for i:= 0 to FieldCount-1 do ...

Cevabın için teşekkür ederim ama oluşacak kolonlar önceden belli değil kullanıcının bir tabloda oluşturduğu kriterler sorguda sütün olarak oluşuyor. O nedenle tasarım anında ekleyeceğim kolonlar anlamlı olmayacak. Bir sorguda 1 sütun oluşabiliyorken kullanıcıya göre 7-8 stün oluşabilir sütün adları ...

Merhaba;

Projede sütünlar çalışma anında değişen bir query var bazı duruma göre 4 bazen 6 sütün oluşuyor. Kodda oluşan sütünları yine çalışma anında querynin fildine ekliyorum ardından aşağıdaki kod ile cxgride aktarıyorum burada yapamadığım şu; fiyat oluşan sütüları tl olarak formatlamak ...

Delphi de bir execel belgesinde ki sayfayı başka bir excel belgesine taşımanın kodunu çalıştırdım belki birinin işine yarar
procedure TForm1.RzBitBtn15Click(Sender: TObject);
var
excel:variant;
begin

Excel := GetActiveOleObject('Excel.Application');
excel.Workbooks.open('C:\d\A.xlsx');
excel ...

2000 çok büyük bir sayı değil dediğim gibi BeginUpdate EndUpdate komutlarını araştırın.


Merhaba önerinizi uygulamayı düşünüyorum kodlarım hazır zaten ama bu begin update ile ilgili webde çok açıklayıcı bir makale yada döküman bulamadım nedir bu beginupdate in faydası ?? Yaptığı iş nedir??;
Bazı ...

For ile yapabilirsiniz ve çok uzun sürmez. Verileri nereden çekiyorsunuz. BeginUpdate EndUpdate komutlarını araştırın.


For döngüsü ile exele hücre hücre daha önce yazdığım bir proje var gridi tek tek okuyup yazdığı için griddeki sayfa sayısına göre uzun sürüyor. BAzı gird de 2000 satır ...

Sanırım konu hakkında kimsenin fikri yok.
Devexpressin sitesinde C# için bu konuya örnek vermiş ama bu kodu delphiye uyarlayamadım.

CompositeLink complink = new CompositeLink(new PrintingSystem());
PrintableComponentLink link = new PrintableComponentLink();
link.Component = gridControl1 ...

Hiç dikkat etmediniz mi ? Delphi'de yapılan OleAutomation kodlarının tümü aslında birer VBA Macro komutudur...

Excel.Sheets['BENIMFORM'].Copy(After:=Excel.Sheets['BENIMFORM']);


// EDIT // Açtığın başlıkta bir başka Excel dosyasına demişsin onu görmemişim.

Her iki excel dosyası bağımsız ...

Excelin yardımlarınada var ama kodlar vb ye göre bu kodları delphiye nasıl uyarlayablirim.
Excel VBA to copy sheet to another workbook

Depending on where you want to insert the copied sheet, use one of the following macros.
Copy sheet to the beginning of another workbook

This macro copies the ...

Tekrar merhaba;
Forumda dolaşırken aşağıdaki konuyu buldum tam istediğim noktaya değinmiş
http://www.delphiturkiye.com/forum/viewtopic.php?t=20753


/ EDIT // Açtığın başlıkta bir başka Excel dosyasına demişsin onu görmemişim.

Her iki excel dosyası bağımsız WorkBook olarak açılırlar bunu bilirsin ...